perl接收地字符串如何比较

#! /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去掉回车符，这样才能得到我们想要的输入字符串。