awk 到 perl 的转换

Question

我有一个充满文件的目录，其中包含如下记录：

FAKE ORGANIZATION
799 S FAKE AVE
Northern Blempglorff, RI 99xxx


                                                                      01/26/2011
     These items are being held for you at the location shown below each one.
     IF YOU ASKED THAT MATERIAL BE MAILED TO YOU, PLEASE DISREGARD THIS NOTICE.

     The Waltons. The complete  DAXXXX12118198
     Pickup at:CHUPACABRA LOCATION                                 02/02/2011







                                                  GRIMLY, WILFORD
                                                  29 FAKE LANE
                                                  S. BLEMPGLORFF RI  99XXX

我需要删除带有表达式 Pickup at:CHUPACABRA LOCATION 的所有条目。

“记录分隔符”问题： 我无法修改输入文件的格式 - 它必须按原样保留。每条记录 由大约 40 多行新行分隔。

这是一些 awk （这有效）：

BEGIN { 
    RS="\n\n\n\n\n\n\n\n\n+" 
    FS="\n"
}
!/CHUPACABRA/{print $0}

我对 perl 的尝试：

perl -a -F\n -ne '$/ = "\n\n\n\n\n\n\n\n\n+";$\ = "\n";chomp;$regex="CHUPACABRA";print $_ if $_ !~ m/$regex/i;' data/lib51.000

没有返回任何内容。我不知道如何在 perl 中指定“字段分隔符”，除了在命令行中。尝试了 a2p 实用程序 - 没有骰子。出于好奇，这就是它产生的结果：

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z
            # process any FOO=bar switches

#$FS = ' ';     # set field separator
$, = ' ';       # set output field separator
$\ = "\n";      # set output record separator

$/ = "\n\n\n\n\n\n\n\n\n+";
$FS = "\n";

while (<>) {
    chomp;  # strip record separator
    if (!/CHUPACABRA/) {
    print $_; 
   }   
}

这必须在某人的 Windows 机器下运行，否则我会坚持使用 awk。

谢谢！

Bubnoff

编辑（已解决）**

谢谢暴民！ 这是一个（工作的）perl 脚本版本（调整后的 a2p 输出）：

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z
            # process any FOO=bar switches

#$FS = ' ';     # set field separator
$, = ' ';       # set output field separator
$\ = "\n";      # set output record separator

$/ = "\n"x10;
$FS = "\n";

while (<>) {
    chomp;  # strip record separator
    if (!/CHUPACABRA/) {
    print $_; 
    }   
}

请随意发布改进或 CPAN 好东西，使这更惯用和/或 perl 风格。谢谢！

Answer 1

在 Perl 中，记录分隔符是文字字符串，而不是正则表达式。正如 perlvar 文档 所说：

记住：$/ 的值是一个字符串，而不是正则表达式。 awk 必须在某些方面做得更好。 :-)

不过，看起来你可以使用 $/="\n" x 10 或类似的东西：

perl -a -F\n -ne '$/="\n"x10;$\="\n";chomp;$regex="CHUPACABRA";
       print if /\S/ && !m/$regex/i;' data/lib51.000

注意额外的 /\S/ &&，它将跳过具有超过 20 个连续换行符的输入中的空段落。

另外，您是否考虑过仅安装 Cygwin 并在 Windows 计算机上使用 awk ？

Answer 2

如果您可以下载gawk for windows，则不需要（太多）转换

Answer 3

你知道吗，Perl 附带了一个名为 a2p 的程序，它完全可以完成你所描述的你想要做的事情在你的标题中？

而且，如果您的计算机上有 Perl，则该程序的文档已经存在：

C> perldoc a2p

我自己的建议是获取 Llama无论如何，请阅读并学习 Perl。不管 Python 人怎么说，Perl 是一种伟大而灵活的语言。如果您了解 shell、awk 和 grep，那么您将毫无问题地理解许多 Perl 结构。