Mega Code Archive

 

Categories / Perl / Subroutine

 

My variable is initialized each time

sub incrementcount {     my $count;     return ++$count; } print incrementcount . "\n"; print incrementcount . "\n"; print incrementcount . "\n"; print incrementcount . "\n";