理解 Perl 脚本中的错误

Question

我正在尝试编写一个 Perl 脚本来转换存储在文件夹中的某些 CSV 文件的行尾。我是 Perl 新手，因此我们将不胜感激。

use strict;
use warnings;

my @files = glob "*.csv";

foreach my $i (@files) {

    system('perl -i.bak -pe "s/\R/\n/g" '.$i.'') or die "$?";

}

转换第一个文件后，脚本终止并出现以下错误：

0 at script_conversione_linebreaks.pl at line 8.

这是进行转换的正确方法吗？或者我必须在系统语句中一次传递所有 CSV 文件？

Answer 1

关于你的错误信息，因为system的返回值是程序的状态，如果程序成功你会得到0。这意味着您将die，因为0 被解释为假。

use strict;
use warnings;

my @files = glob "*.csv";

foreach my $i (@files) {
    system('perl -i.bak -pe "s/\R/\n/g" ' . $i) and die "$?"; # Note the `and`
}

进一步通知：您正在为每个 csv 文件运行一个子进程。这在性能方面很糟糕。您可能需要考虑从 shell 运行单个命令：

perl -i.bak -pe 's/\R/\n/g' *.csv

但我认为在这种情况下你应该选择另一种武器。

这有帮助吗？

#!/bin/sh
for i in *.csv; do cp $i $i.bak; dos2unix $i; done

编辑： 正如@AkHolland 在评论中指出的那样，您可以直接在所有文件上直接调用dos2unix，并让它在它们上循环。这不会生成备份，但dos2unix 也确实不会出错文本文件。

Answer 2

我会使用@Dacav 的解决方案，但是您程序中的错误是system 返回被调用的可执行文件的退出代码，而0 在这里表示成功。

所以

system "something" or die $?;

应该是

system "something" == 0  or die $?;

由于这是您大部分时间想要的，Perl 有一个编译指示可以自动检查 system 和朋友的错误代码：

use autodie qw(:all);

将此添加到您的程序中，您将获得异常，而不必检查返回码。

Answer 3

一个班轮 perl 怎么样：

perl -p -i -e 's/\R/\n/g' path/to/files/*.csv