#! /usr/bin/perl
[color=darkred]chomp($line=<STDIN>);[/color]print '$line:';
print $line;
print "\n";
if($line eq 'abc'){
print "That was same!\n";
}else{
print "That was different!\n";
}
注释:在第二行中,接受完字符串后,必须用chomp去掉回车符,这样才能得到我们想要的输入字符串。
[color=darkred]chomp($line=<STDIN>);[/color]print '$line:';
print $line;
print "\n";
if($line eq 'abc'){
print "That was same!\n";
}else{
print "That was different!\n";
}
注释:在第二行中,接受完字符串后,必须用chomp去掉回车符,这样才能得到我们想要的输入字符串。
本文介绍了一段Perl脚本,演示了如何在输入处理中使用chomp函数去除回车符,并通过if语句进行条件判断,确保代码的正确性和效率。
808

被折叠的 条评论
为什么被折叠?



