用新行将数组输出写入perl

Question

我从一个子程序得到一个输出

 @ 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

谢谢

Answer 1

如何打开文件并将数组打印到它:

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

如何删除该文件:

unlink "log.txt" or die $!;

为什么你要先打印然后删除该文件,我不知道.