Mega Code Archive

 

Categories / Perl / Subroutine

 

My, local and global variable

$value1 = 1; my $value2 = 2; local $value3 = 3; print join(", ", keys %::);