非常奇怪的错误。当在Perl

打印所以这里是正在运行的代码片段：非常奇怪的错误。当在Perl

if($verbose){ 
      my $toPrint = "Added "; 
      if($types[$count]){ 
        $toPrint .= "$types[$count] "; 
        print "Type: $types[$count]\n"; #Manual debugging 
        print "\$toPrint: $toPrint\n"; #Manual debugging 
      } 
      if($addressTypes[$count]){ 
        $toPrint .= "$addressTypes[$count] "; 
        print "Address Type: $addressTypes[$count]\n"; #Manual debugging 
        print "\$toPrint: $toPrint\n"; #Manual debugging 
      } 
      if($addresses[$count]){ 
        $toPrint .= "$addresses[$count] "; 
        print "Address: $addresses[$count]\n"; #Manual Debugging 
        print "\$toPrint: $toPrint\n"; #Manual debugging 
      } 
      $toPrint .= "to the address entries\n"; 
      print "Final value of \$toPrint before printing: $toPrint\n"; #Manual debugging 
      print $toPrint; 
    }

我们内部的for循环，与$count是我们的迭代变量。以下是此代码的特定runthrough的输出结果。为了保护隐私，我用###。###。###。###替换了IP中的IP。

Type: zix01 
    $toPrint: Added zix01 
    Address Type: A 
    $toPrint: Added zix01 A 
    Address: ###.###.###.### 
    toPrint: Added zix01 A ###.###.###.### 
    to the address entries before printing: Added zix01 A ###.###.###.### 

    to the address entries#.###

正如你所看到的，这有几个问题。

以“地址”开头的行以空格开头，而不是打算的$。
之后的行以“到地址条目”开始，而不是“$到打印的最终值”。
该行在结尾处也没有“地址条目”。
最后两行之间有一个额外的换行符。
最后一行不包含单词“添加zix01 A”，即使它应该打印的变量确实如此。
最后一行也不包括它应该打印的IP，除了最后5个字符以外，这些字符在字符串的其余部分之后但在换行符之前出现。

有没有人有任何想法这里发生了什么？

编辑为语法。

来源

2013-06-26 deviks

这不一定与您的问题有关，但我已经看到由打印输出缓冲区引起的各种奇怪的打印行为。把它放在脚本的顶部，试着关掉它：$ | = 1; – Magnus

您的输出中是否有回车符（\r）？在Unix上使用perl script.pl | od -c来检查输出的每个字符。

在Windows中生成的文件通常有\r\n行结束符。当这些文件在Unix环境中读取时，chomp只会删除\n。当我不得不担心可移植性时，我通常跳过chomp，并在输入上只输入s/\s+$//（或s/[\r\n]+$//，如果您不想去除所有尾随空格）。

来源

2013-06-26 14:32:03 mob

这里似乎有回车。该脚本正在对Windows中生成的.csv文件进行操作，该文件可能来自哪里。我在每一个明智的机会上都使用了'chomp'，所以我不确定它们为什么仍然存在。马车可能会成为问题吗？ – deviks

看起来像回车导致问题。配置成'od -c'我可以看到所有预期的输出，并且在每个输出看起来没有'od'的情况下都会出现一个回车。现在将测试你的'chomp'替代品。 – deviks

您也可以尝试运行实用程序'dos2unix'来删除CRLF行尾。 – devnull

非常奇怪的错误。当在Perl

回答

相关问题