菜鸟问题

vincent_k

#!/usr/bin/perl
$line=<STDIN>;
if($line eq "s"){
print "That was just a blank line!\n";
}else{
print "That line of input was: $line";
}

我现在手动输入一个s
That line of input was:s

字符串比较s应该是That was just a blank line

不太明白。请告知。本人自学

Perl_Er

1. chomp $line

复制代码

vincent_k

已经明白了。 \n的问题。

trt2008

小骆驼上有讲

blackold

多看书!