perl - 为什么'chop'不起作用?

Question

我试图弄清楚为什么当我尝试从用户那里获取输入时，chop 功能对我不起作用：

my $string = <STDIN>;
my $chr = chop($string);
print "String: $string\n";
print "Char: $chr\n";

输出

perl chop.pl
hello
String: hello
Char:

但是，如果我使用字符串，那么它可以工作！

my $string = "frong";
my $chr = chop($string);
print "String: $string\n";
print "Char: $chr\n";

输出 [583]

perl chop.pl
String: fron
Char: g

score 4 · Accepted Answer

当您从控制台传递输入时，chop正在切割newline字符串末尾的那个，当您点击Enter. 虽然您的字符串不包含该字符串。

score 0 · Accepted Answer

你正在砍（）'ing 是字符串末尾的换行符。要在从 STDIN 分配时删除换行符：

chomp(my $string = <STDIN>);

换句话说，你的程序应该是这样的：

chomp(my $string = <STDIN>);
my $chr = chop($string);
print "String: $string\n";
print "Char: $chr\n";

score 0 · Accepted Answer

检查这两个函数的 perl 文档chop，chomp可能就可以了。

chomp

chomp 这个更安全的 "chop" 版本删除了与 $/ 的当前值相对应的任何尾随字符串（在 "English" 模块中也称为 $INPUT_RECORD_SEPARATOR。

chop

砍掉字符串的最后一个字符并返回被砍掉的字符。

希望这有帮助

score 0 · Accepted Answer

如果您正在打印诊断以显示变量内容，请在它们周围放置某种形式的分隔符，然后您会在 $chr 示例中看到换行符。

例如。

print "String: \"$string\"\n";
print "Char: \"$chr\"\n";

4 回答 4