perl - 使用新行将数组输出写入 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 $!;

为什么要先打印然后删除该文件，我不知道。