perl - 为什么这个标量值返回一个 int 1？（咀嚼）

Question

$receiver 返回 1。

print "Who is receiving this message?:";
my $receiver = chomp(my $r = <STDIN>);
print $receiver;

另外，我在哪里可以找到更多关于 chomp 的文档？谢谢你。

Answer 1

chomp$/返回从其参数列表中每个字符串的末尾删除的输入记录分隔符（无论是什么）字符数。应该使用它：

chomp(my $reciever = <STDIN>);

chomp可以在数组和列表上使用，我认为这是此功能的原因：

my $count = chomp(@array);

的文档chomp在perldoc -f chomp

Answer 2

它返回从所有参数中删除的字符总数。

见http://perldoc.perl.org/functions/chomp.html

相反，您可能想要chomp(my $receiver = <STDIN>);

Answer 3

因为chomp返回从其参数中删除的换行符的数量。查看perldoc -f chomp更多信息。

你可能想要的是chomp(my $receiver = <STDIN>);

Answer 4

因为你用错了。

use Modern::Perl; 
my $receiver; 
chomp($receiver = <STDIN>); 
say "Result: " . $receiver;'

更多信息：

perldoc -f chomp

或http://perldoc.perl.org/functions/chomp.html

Answer 5

Chomp 执行“就地”删除并返回删除的字符数。

这是错误的：

my $var = <STDIN>;
my $result = chomp ($var);  ### here, $result will have '1' and not the chomped string of <STDIN>

这是对的：

my $var = <STDIN>;
chomp ($var);