[Perl] 'strict' 까보자.

use strict;
  ## restrict unsafe use of variables for rest of block

use strict 'vars'; ## restrict unsafe use of variables for rest of block
 EX Code)
 use strict 'vars';
 use vars '$foe';
 
 $SomePack::fee = 1;
 my $file = 10;
 $foe = 7;
 $foo = 9;
 

use strict 'refs';  ## restrict unsafe use of references for rest of block
 EX Code)
 use strict 'refs';
 $ref = \$foo;
 print $$ref;
 $ref = "foo";
 print $$ref;

 
use strict 'subs';  ## restrict unsafe use of barewords for rest of block
 EX Code)
 use strict 'subs';
 $SIG{PIPE} = Plumber;
 # blows up (assuming Plumber sub not declared yet)
 $SIG{PIPE} = "Plumber";
 # okay, means "main::Plumber" really
 $SIG{PIPE} = \e&Plumber; # preferred form

no strict;

오늘은 여기까징~~