perl - 使用 perl -pe 删除文件的第一行

Question

我正在尝试使用 perl -pe 而不是 system & sed -i 删除输出文件“bss_concurrent_calls.txt”的第一行。我使用的服务器是solaris 9(事实上它无法识别“sed -i”)

open my $file_in, "<", "/export/home/cassi/4.1-15_HPBX/cfg/LicenseCounters.log" or die($!);

open my $file_out,   '>', 'bss_concurrent_calls.txt' or die $!;

while( <$file_in> ) {
    my @columns = split /\s+/, $_;
    print $file_out "$columns[0]\t$columns[2]\n";

}
system('sed "1d" bss_concurrent_calls.txt');
close $file_in;
close $file_out or die $!;

Answer 1

无需在此处(或其他任何地方)从 Perl 调用 sed。

perl -ane 'print "$F[0]\t$F[2]\n" unless $. == 1' \ 
    < /export/.../LicenseCounters.log > bss_concurrent_calls.txt