bbs.cgi再開発プロジェクト7

[248 動け動けウゴウゴ２ちゃんねる 2005/11/21(月) 16:13:54 ID:PrsYqBTB0]

http://www.uopmu.ees.osakafu-u.ac.jp/~yabu/soft/perl.html#8

ファイルハンドルの引数渡し

&sub3(FP);

sub sub3{
my($FP) = @_;
$_ = <FP>;
print "file : $_\n";
}