Perl无法识别我的if语句
我的代码:Perl无法识别我的if语句,perl,Perl,我的代码: #!/usr/bin/perl $line = <STDIN>; if ($line eq "/n") { print "That was just a blank line!"; } else { print "That line of input was: $line"; } #/usr/bin/perl $li
#!/usr/bin/perl
$line = <STDIN>;
if ($line eq "/n") {
print "That was just a blank line!";
} else {
print "That line of input was: $line";
}
#/usr/bin/perl
$line=;
如果($line eq)/n“){
打印“那只是一个空行!”;
}否则{
打印“输入行为:$line”;
}
当$line为空或/n时,它无法识别。它将只输出“输入行是:”然后它将是空的。但如果$line实际上是一个东西,它会打印文本 > P> > <代码> \n >代码>创建换行符。 您应尝试以下内容,使其与空格“”匹配空行。
if ($line =~ /^\s+$/)
或者更简单地说,
if(而不是$line=~/\S/)
@TLP您也可以使if($line!~/\S/)
@sim正确。您也可以使用,除非
。我经常发现~
很容易与它的对立面混淆。