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正确。您也可以使用
,除非
。我经常发现
~
很容易与它的对立面混淆。