自作CGIを評価するスレ

[0050 nobodyさん 03/04/06 03:05 ID:???]

#!/usr/bin/perl

require "hage.pl";

my $a = 1;
print $a,"\n";
&hage::routine;
print $a,"\n";

＃ ↓はhage.pl
#!/usr/bin/perl

package hage;

sub routine {$a = 3;}
1;

では、
$ perl hoge.pl
1
1
となる（安全