#!/usr/bin/perl
sub crea_contador {
my $base = shift;
return sub {
return $base++;
}
}
my $desde42 = crea_contador(42);
my $desde69 = crea_contador(69);
print "Desde42: ";
for (1..3) {
print $desde42->(),", ";
}
print "\n";
print "Desde69: ";
for (1..3) {
print $desde69->(),", ";
}
print "\n";
print "Uno mas de cada una: ";
print $desde42->(), ", ", $desde69->(),"\n";