Perl ファイル出力

3D Give & Take
Perl

[Gallery]	[Making]	[DownLoad]	[Link]
[Trash Gallery]	[Introduction]	[BBS]	[▲TOP]

Perl ファイル出力

項目	説明
ファイル出力の例です。シンプルに出力する場合と引数にファイル名をつけます。
#例1　Perl内にファイル名を記述し、printの内容を単純に書きこむ open(OUT,"> ファイル名"); print OUT "test\n";#　カンマで区切らないこと print OUT "this is file\n"; close(OUT);	#追加書き込みときは'>'を　'>>’にします。これでファイルには test this is file となります。
#例2　コマンドラインにて引数にファイル名を入力し、そのファイル内に余分な改行があれば削除し、ファイル名にout_を先頭につけ出力する。 #!/usr/local/bin/perl open(IN,$ARGV[0]); open(OUT,"> out_$ARGV[0"); while(<IN>){ if($_ eq "\n"){ $_=~s/\n//g;#\nを削除する } print OUT; } close(IN); close(OUT);	ファイル出力名はout_+引数のファイル名になります。 perl file.pl aa.txt