Bash 在命令行上工作，但不在 perl 脚本中

Question

我有一组要清理的 .csv 文件。每个都有这样的数据：

x0,"","",""
x1,123,456,789
x2,123,456,789
x3,123,456,789
-,"","",""
x4,123,456,789
[space],____,____,____
x5,123,456,789
x6,===,====,======
x7,---,--------=--,-------

我想删除所有不是 xn,###,###,### 的行，所以在这个例子中，它将是第 1、5、7、9 和 10 行。在 cygwin 命令中行，我一一输入以下命令：

    sed -i '/"",""/d' *.csv
    sed -i '/___/d' *.csv
    sed -i '/---/d' *.csv
    sed -i '/===/d' *.csv

这些都有效。但是，当我尝试将它们一起放入 perl 脚本时（我的其余代码在 perl 中，它们失败了：

    system("sed -i '/"",""/d' *.csv");
    system("sed -i '/___/d' *.csv");
    system("sed -i '/---/d' *.csv");
    system("sed -i '/===/d' *.csv");

我得到了结果：

在 test1.pl 第 1 行的运算符预期位置找到字符串，靠近 ""sed -i '/"",""

（“，”之前缺少运算符？）

在 test1.pl 第 1 行，“”，“/d' *.csv”“附近的运算符预期的位置找到字符串

（“/d' *.csv”之前缺少运算符？）

test1.pl 第 1 行的语法错误，靠近 ""sed -i '/"",""

我注意到除了第一个命令之外的所有工作——sed 中的"" 有什么特别之处吗？任何帮助，将不胜感激！也欢迎使用更简单的解决方案！

Answer 1

使用转义字符\ 让解释器明白 sed 命令中的 (", *, .) 与 Perl 的 (", *, .) 不同，而是应该将它们视为 sed 的字符串模式命令。

    system("sed -i '/\"\",\"\"/d' \*\.csv");
    system("sed -i '/___/d' \*\.csv");
    system("sed -i '/---/d' \*\.csv");
    system("sed -i '/===/d' \*\.csv");

Answer 2

如果您的脚本的其余部分在 Perl 中，我强烈建议您使用本机实现替换您对 sed 的调用。

例如，您使用 sed 进行的替换可以替换为以下内容：

use strict;
use warnings;

for my $file (glob '*.csv') {
    open my $in, '<', $file;        
    my @lines;
    while (<$in>) {
        next if /"",""/;
        next if /___/;
        next if /---/;
        next if /===/;
        push @lines, $_;
    }
    close $in;

    # this will overwrite your files!
    # change $file to something else to test
    open my $out, '>', $file;
    print $out $_ for @lines;
}

这将遍历每个以.csv 结尾的文件，读取每一行。它会跳过与其中一种模式匹配的任何行（如果需要，您可以在每个模式之间使用带有 | 的单个正则表达式来执行此操作，但我将其保留为与您对 sed 的调用相同）。它将任何剩余的行推送到数组中。然后它重新打开输入文件进行写入并打印数组。

当然，它在行数方面稍长，但当 Perl 功能强大时，您不必使用system 调用外部命令。这也意味着每个文件只打开一次，而不是像原始代码那样每次替换一次。

Answer 3

问题是sed 参数中的双引号结束了Perl 字符串。你需要逃离他们

system("sed -i '/`"`",`"`"/d' *.csv");

或者你可以使用q(...)。

system(q(sed -i '/"",""/d' *.csv));

顺便说一句，你可以给sed多个命令，所以你不必多次运行它。

system(q(sed -i -e '/"",""/d' -e '/___/d' -e '/---/d' -e '/===/d' *.csv"));

或者您可以使用带有交替的正则表达式来一次匹配所有模式。

system(q(sed -i -e '/"",""\\|___\\|---/\\|===/d' *.csv"));