关于字符比较的perl.

flycatcn

我写了一个字符比较的perl

＃！ /usr/bin/perl -w

print "name: ";
$name=<stdin>;
$Name="flycatcn";
if (“$name” eq “$Name”)  {print "welcome $name\n";}
                                       else  {print "not found\n";}

目的很明确：输入flycatcn，显示 welcome;
                  输入任意字符的时候，显示not found;
求教高手，这段代码有什么问题。（目的没有达到。）

桠枫

#!/usr/bin/perl -w
print "name:";
chomp($name=<STDIN>);
if($name eq  "flycatcn"){
           print "welcome";
}
else{print "not found";}

flycatcn

十分感谢
shomp ():  是什么意思？

另外stdin和STDIN有什么区别？

我试过，好像关系不大

flycatcn

你的毫无用处

A_Banknote

[code:1]
#!/usr/bin/perl -w
print "name:";
$Name="hello";
chomp($name=<STDIN>);
if($name eq $Name){
print "welcome";
}
else{print "not found";}
[/code:1]
chomp($n);    如果有，就去掉$n中的换行符。
STDIN时，输入字符的同时也输入了一个换行符。

flycatcn

谢谢 A Banknote
测试通过
非常感谢