主页 / 问题 / 854237
Accepted
TWOfish
Asked:2020-07-13 21:34:37 +0000 UTC2020-07-13 21:34:37 +0000 UTC

将脚本转换为 perl 以用于管道

  • 772

有一个 perl 脚本处理从in.txt到的行out.txt，它被硬编码到脚本中。是否可以重新制作脚本，而不是指定输入和输出文件，而是有一个标准的 stdin 和 stdout 将其粘贴到管道中？显然，以下几行需要更正（对不起，我根本不懂 perl 中的任何内容，我寻求帮助）：

01 my $fileSrc = '**in.txt**';
02 open my $fhSrc, $fileSrc or die "Not open $fileSrc: $!";
03
04 my $fileDest = '**out.txt**';
05 open(my $fhDest, '>>', $fileDest) or die "Not open file $fileDest: $!";
06
07 close $fhSrc;
08 close $fhDest;
perl

2 个回答

  1. Best Answer

    您可以替换打开的文件。首先：

    open my $fhSrc, '<-' or die '...';

    第二个：

    open my $fhDest, '>-' or die '...';
    • 1 
  2. while( <> ) {
 chomp; # если надо, см. ниже
 my $rc = foo( $_ ); 
 print $rc if defined $rc; 
 # не забыть про перевод строки - здесь или в foo()
}

sub foo 
{
  # вернуть undef в случае ошибки, или обработаную строку
}
    • 0

相关问题