Perl chomp 不会删除换行符答案

【问题标题】：Perl chomp doesn't remove the newlinePerl chomp 不会删除换行符
【发布时间】：2014-05-03 17:47:36
【问题描述】：

我想从文件的第一行读取一个字符串，然后在控制台中重复 n 次，其中 n 被指定为第二行文件。

我觉得很简单？

#!/usr/bin/perl
open(INPUT, "input.txt");
chomp($text = <INPUT>);
chomp($repetitions = <INPUT>);
print $text x $repetitions;

其中input.txt如下

Hello
3

我希望输出是

HelloHelloHello

尽管使用了chomp，但单词是换行符。

Hello
Hello
Hello

你可以试试下面的 Perl fiddle CompileOnline

奇怪的是，如果代码如下：

#!/usr/bin/perl
open(INPUT, "input.txt");
chomp($text = <INPUT>);
print $text x 3;

它可以正常工作并显示

HelloHelloHello

是我理解有误，还是在线编译器有问题？

【问题讨论】：

标签： perl chomp

【解决方案1】：

您对行尾有疑问； chomp 从$text 中删除$/ 的尾随字符/字符串，这可能因平台而异。但是，您可以选择使用正则表达式从字符串中删除任何尾随空格，

open(my $INPUT, "<", "input.txt");
my $text = <$INPUT>;
my $repetitions = <$INPUT>;

s/\s+\z// for $text, $repetitions;
print $text x $repetitions;

我正在使用最初的帖子http://compileonline.com/execute_perl_online.php 中提到的在线 Perl 编辑器/编译器

您输出的原因是字符串 Hello\rHello\rHello\r 在 html (\r like line break) 中的解释不同，而在控制台中 \r 将光标返回到当前行的开头。

【讨论】：