为什么Perl的印记会影响我的打印输出？

Question

我从Perling到现在已经几个月了，但是我完全不知道为什么会这样。

如果有问题，我在OSX上。

我正在尝试转换文件中的行

08/03/2011 01:00 PDT,1.11

变成标准输出

XXX, 20120803, 0100, KWH, 0.2809, A, YYY

因为我读一个文件，我想chomp每一行中读取之后。然而，当我chomp ，我发现我的打印得乱七八糟。 当我不chomp ，打印效果很好（除了多余的换行符...）。 这里发生了什么？

while(<SOURCE>) {
    chomp;
    my @tokens = split(' |,');     # @tokens now [08/03/2011, 01:00, PDT, 1.11]

    my $converted_date = convertDate($tokens[0]);
    my $converted_time = convertTime($tokens[1]);

print<<EOF;
$XXX, $converted_date, $converted_time, KWH, $tokens[3], A, YYY
EOF
}

在其中存在chomp调用的情况下，所有输出混合在一起：

, A, YYY10803, 0100, KWH, 1.11

如果没有chomp调用，它至少会以正确的顺序进行打印，但要额外增加一行：

XXX, 20110803, 0100, KWH, 1.11
, A, YYY

请注意，在其中插入了chomp之后，就好像它覆盖了第一行“顶部”的换行符。 我加了$|=1; 自动刷新，但不知道在这里还要做什么。

有什么想法吗？ 并预先感谢...。

Answer 1

输入的行以CR LF结尾。 您仅删除LF。 一个简单的解决方案是使用以下代码代替chomp ：

s/\s+\z//;

您还可以使用dos2unix命令行工具转换文件，然后再将其传递给Perl。

Answer 2

问题是您有DOS行尾，并且在Perl的Unix版本上运行。

一种解决方案是使用PerlIO::eol 。 您可能必须安装它，但是程序中不需要use线。

那你可以写

binmode ':raw:eol(LF)', $filehandle;

之后，无论文件的格式或来源如何，读取的行都将以标准"\\n"终止。