Closures II

counters2.pl

#!/usr/local/bin/perl use strict; use warnings; my %counter = (); while (<>) { chomp; next unless my ($sign, $name) = /^([+-])(\S+)$/; $counter{$name} = new_counter() unless defined $counter{$name}; print &{$counter{$name}{$sign}}(), "\n"; } sub new_counter { my $counter = 0; return { '+' => sub { return ++ $counter }, '-' => sub { return -- $counter }, }; }

Mehrere Inkarnationen anonymer Prozeduren können sich eine Umgebung teilen, wenn sie alle der gleichen Umgebung entstammen.