Mega Code Archive

 

Categories / Perl / Language Basics

 

Scope and block

#!/usr/bin/perl our $scalar = "global"; print "\$scalar is a $scalar variable\n"; {       my $scalar = "lexical";       print "\$scalar is now a $scalar variable\n"; } print "\$scalar is a $scalar variable again\n";