読み書き

open(IN,"perl01.cgi");
while(<IN>)
{
	print "$. :$_";#$.は現在の行数
}
close(IN);

#open (F,"< filename.txt")読み込み
#open (F,"> filename.txt")書き込み新規文章で書き込む
#open (F,">> filename.txt")追加書き込み。一番後ろに書き込む
#open (F,"+< filename.txt")読み書き


open (OUT,"> $outputfile");
print (OUT $myStr);
close(OUT);