Perl Concat 字符串截断行首

Question

我在 perl 中遇到了一个奇怪的问题，我似乎无法找到答案。

我有一个小脚本，可以解析来自外部来源的数据（无论是文件、网站等）。解析数据后，它会将其保存到 CSV 文件中。但是，问题是当我写入文件或打印以筛选数据时，它似乎会截断字符串的开头。我正在使用严格和警告，但没有看到任何错误。

这是一个示例：

print "Name: " . $name . "\n";
print "Type: " . $type. "\n";
print "Price: " . $price . "\n";
print "Count: " . $count . "\n";

它将返回以下内容：

John
Blue
7.99
5

如果我尝试这样做：

print "$name,$type,$price,$count\n";

我得到以下结果：

,7.99,5

我尝试了以下操作来查看问题从哪里开始并得到以下结果：

print "$name\n";
print "$name,$type\n";
print "$name,$type,$price\n";
print "$name,$type,$price,$count\n";

结果：

John
John,Blue
,7.99
,7.99,5

我仍在学习 perl ，但似乎无法找出（可能是由于缺乏知识）造成这种情况的原因。我尝试调试脚本，但我没有在价格变量中看到任何会导致此问题的特殊字符。

Answer 1

$price 中的字符串以回车符结尾。这会导致您的终端将光标移动到行首，导致前两个字段被后面的字段覆盖。

您可能正在 unix 机器上阅读 Windows 文本文件。转换文件（例如，使用 dos2unix），或使用 s/\s+\z//; 而不是 chomp;。

如果 CR 位于字符串的中间，则可以使用 s/\r//g;。

Answer 2

根据@Mat的建议，我通过hexdump -C运行输出，发现有一个回车符（由十六进制值0d表示）。使用代码 $price =~ s/\r//g; 从文本行中删除 CR 解决了该问题。

另外，输入文件是 Windows 格式而不是 Unix，运行命令 dos2unix 来修复该问题。