flycatcn 发表于 2004-1-27 12:01:54

关于字符比较的perl.

我写了一个字符比较的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;
求教高手，这段代码有什么问题。（目的没有达到。）

桠枫 发表于 2004-1-27 20:50:59

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

flycatcn 发表于 2004-1-28 13:43:33

十分感谢

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

另外stdin和STDIN有什么区别？

我试过，好像关系不大

flycatcn 发表于 2004-1-29 20:46:27

你的毫无用处 :evil:

A_Banknote 发表于 2004-2-3 15:12:46


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

chomp($n);    如果有，就去掉$n中的换行符。
STDIN时，输入字符的同时也输入了一个换行符。

flycatcn 发表于 2004-2-3 20:45:33

谢谢 A Banknote
测试通过
非常感谢
页: [1]
查看完整版本: 关于字符比较的perl.