|
counters2.pl |
#!/usr/local/bin/perl -w %counter = (); while (<>) { chomp; next unless ($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.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |