如何使用 Perl 提取和保存文本？

Question

没有提取数据输出到data2.txt？ 代码出了什么问题？

MyFile.txt

ex1,fx2,xx1
mm1,nn2,gg3
EX1,hh2,ff7

这是我在 data2.txt 中想要的输出：

ex1,fx2,xx1
EX1,hh2,ff7

#! /DATA/PLUG/pvelasco/Softwares/PERLINUX/bin/perl -w

my $infile  ='My1.txt';
my $outfile ='data2.txt';

open IN,  '<', $infile  or die "Cant open $infile:$!";
open OUT, '>', $outfile or die "Cant open $outfile:$!";

while (<IN>) {   
  if (m/EX$HF|ex$HF/) {
    print OUT $_, "\n";      
    print $_;   
  }
}

close IN;
close OUT;

Answer 1

这个正则表达式没有意义：

m/EX$HF|ex$HF/

$HF 应该是一个变量吗？ 你想匹配什么？

另外，您编写的每个 Perl 脚本中的第二行应该是：

use strict;

它会让 Perl 捕获此类错误并告诉您它们，而不是默默地忽略它们。

Answer 2

while (<IN>) {
  if (m/^(EX|ex)\d.*/) {   
    print OUT "$_";      
    print $_;   
  }
}

Answer 3

抱歉，如果这看起来像是在说明明显的出血，但是有什么问题

grep -i ^ex < My1.txt > data2.txt

......或者如果您真的想在 perl 中执行此操作（并且这没有任何问题）：

perl -ne '/^ex/i && print' < My1.txt > data2.txt

这假设请求的目的是查找以EX，不区分大小写。

Answer 4

当我运行您的代码，但将输入文件命名为 My1.txt 而不是 MyFile.txt 时，我得到了所需的输出 - 空行除外，您可以通过删除来删除空行print 语句中的 , "\n"。

Answer 5

文件名不匹配。

open(my $inhandle, '<', $infile)   or die "Cant open $infile: $!";
open(my $outhandle, '>', $outfile) or die "Cant open $outfile: $!";

while(my $line = <$inhandle>) {   

    # Assumes that ex, Ex, eX, EX all are valid first characters
    if($line =~ m{^ex}i) {         # or   if(lc(substr $line, 0 => 2) eq 'ex') {
        print { $outhandle } $line;      
        print $line;
    }
}

是的，总是总是使用严格；

你也可以chomp $line并且（如果使用perl 5.10）说$line em> 而不是打印“$line\n”。