perl接收地字符串如何比较

#!/usr/bin/perl

chomp($line=<STDIN>);print'$line:';

print$line;

print"\n";

if($lineeq'abc'){

print"Thatwassame!\n";

}else{

print"Thatwasdifferent!\n";

}

注释：在第二行中，接受完字符串后，必须用chomp去掉回车符，这样才能得到我们想要的输入字符串。