Perl 5.12.3 无法逐行循环 CSV 文件

Question

我相信有人对以下脚本发生的事情有解释：

请注意，我指定的文件可用并且正在打开。我知道这是因为程序运行时会输出文件的最后一行，但它只是最后一行。

关于 .csv 文件的注意事项：它是在 Windows 上生成的（我使用的是 OS X 10.7.4 和 Perl 5.12.3）并使用 \r 换行符。我试图告诉 perl 换行符是脚本顶部的 \r ，但它不起作用。我知道他们是\r，因为 grep 搜索在文本编辑器中找到了他们。

脚本运行并且只打印文件的最后一行。如果我插入一个正则表达式，它将从第一行抓取第一个匹配字段并很好地回显它，但我无法遍历整个文件。

感谢任何澄清，因为我是 perl 的新手。

#!/usr/bin/perl

use warnings;

print "Please enter your filename:";


my ($dataline);
open(INFO,'./expensereport.csv') || die("can't open datafile: $!");

while (my $line = <INFO>)  {
chomp $line;
print $line;


}
print $!;

Answer 1

没有换行的回车会导致打印覆盖同一行的每一行，所以你看到的只是最后一行。

在处理之前在您的输入文件上运行 dos2unix。

Answer 2

有几种方法可以告诉 perl 你的输入文件是 windows 风格的 :crlf。

perldoc -f binmode 或 perldoc -f open

open(INFO, '<:crlf', './expensereport.csv') ...

Answer 3

啊，这很清楚！ :)

看，你有一个带有 \r （字面意思是回车）和 \n （换行符）的文件。 chomp 切断 \n （新行）。所以你一次又一次地打印在同一行（记住“回车”）。

改用print "$line\n";