2

サブルーチンから次のように出力を取得しています

 @ outputarray

outputarray[0]=name  ip  port 
outputarray[1]=------------------------------------ 
outputarray[2]=http-listener-1  *   6712
outputarray[3]=http-listener-2  *   4743
...... etc

新しいファイルを作成し、ファイルの内容が次のようになっているファイルlog.txtに書き込み、ファイルlog.txtを削除したいのですが、perlでこれを実現するにはどうすればよいですか?

 name ip port 
------------------------------------ 
http-listener-1 *      6712 
http-listener-2 *      4743

ありがとう

4

1 に答える 1

7

ファイルを開いて配列を出力する方法:

open my $fh, ">", "log.txt" or die $!;
print $fh "$_\n" for @outputarray;
close $fh;

そのファイルを削除する方法:

unlink "log.txt" or die $!;

最初に印刷してからそのファイルを削除する理由がわかりません。

于 2013-01-18T10:37:34.220 に答える