Perl在将输出打印到新文件时遇到问题

如何解决Perl在将输出打印到新文件时遇到问题

| 我想删除以HPL_开头的文本文件中的所有行，我已经做到了这一点并且可以打印到屏幕上，但是当我尝试写入文件时，我只是得到了新文件中打印的修改后文本的最后一行。请帮忙！

open(FILE,\"<myfile.txt\"); 
@LINES = <FILE>; 
close(FILE); 
open(FILE,\">myfile.txt\"); 
foreach $LINE (@LINES) { 
@array = split(/\\:/,$LINE); 


my $file = \"changed\";

open OUTFILE,\">$file\" or die \"unable to open $file $!\";

print OUTFILE $LINE unless ($array[0] eq \"HPL_\");

} 
close(FILE); 
close (OUTFILE);




exit;

    

解决方法

您只想删除所有以

HPL_

开头的行？这很容易！

perl -pi -e \'s/^HPL_.*//s\' myfile.txt

是的，它实际上只是单线。 :-)     ,如果您不想使用单线，请按照以下方式重新编写“写入文件”部分：

my $file = \"changed\";
open( my $outfh,\'>\',$file ) or die \"Could not open file $file: $!\\n\";
foreach my $LINE (@LINES) { 
  my @array = split(/:/,$LINE);
  next if $array[0] eq \'HPL_\';
  print $outfh $LINE;
}
close( $outfh );

请注意每次循环时如何“ 4”处理文件。这导致文件仅包含最后一行，因为将

open()

与

>

一起使用意味着\“覆盖文件中的内容\”。就目前而言，这就是代码的主要问题。 编辑：顺便说一句，您想清理代码。如图所示，使用词汇文件句柄。始终在每个Perl程序的顶部添加三行代码。使用

open()

的三运算符版本。不要将整个文件混入一个数组中，就好像您尝试读取一个大文件一样，这可能会导致计算机内存不足。您的程序可以重写为：

#!perl

use strict;
use autodie; 
use warnings FATAL => \"all\";

my $infile = \"myfile.txt\";
my $outfile = \"changed.txt\";

open( my $infh,\'<\',$infile );
open( my $outfh,$outfile );
while( my $line = <$infh> ) {
    next if $line =~ /^HPL_/;
    print $outfh $line;
}
close( $outfh );
close( $infh );

请注意，对于

use autodie

，您不需要在

open()

函数中添加

or die ...

，因为

autodie

编译指示可以为您处理。     ,代码的问题是，您在行处理循环中打开文件以进行输出，由于使用了\'> \'open形式，因此每次都要打开文件进行写入，从而消除了先前的所有内容。 将open（）的调用移动到文件顶部的循环上方，它应该可以工作。 另外，我不确定您的意图，但是在示例的第4行，您重新打开输入文件以进行写入（使用\'> \'），该文件也会掩盖其中包含的所有内容。 附带说明一下，您可以尝试阅读Perl的grep（）命令，该命令旨在完全满足您的需要，如下所示：

#!/usr/bin/perl
use strict;
use warnings;

open(my $in,\'myfile.txt\') or die \"failed to open input for read: $!\";
my @lines = <$in> or die \'no lines to read from input\';
close($in);

# collect all lines that do not begin with HPL_ into @result
my @result = grep ! /^HPL_/,@lines; 

open(my $out,\'changed.txt\') or die \"failed to open output for write: $!\";
print { $out } @result;
close($out);