Perlのスカラー変数に0を代入

Question

Perlのスカラー変数に0を代入する方法は？ マイコード：

$x=0; 

if(!$x) 
{ 
    print "fail"; 
} 
else 
{ 
    print "pass"; 
} 

出力：use strict;とuse warnings;に

Answer 1

電源を入れて失敗し、それが!xが間違っていることを教えてあげる：

裸の単語は、「厳格な潜水艦ながら、許可されていない "×" "使用中

! $x - または私のpreferenc e、not $x。

いつもuse strict;とuse warnings 'all';です。

Answer 2

これは割り当てられていますが、Perlに間違った質問をしています。あなたは "$ x false？"と尋ねているPerlではゼロがfalseに等しいので、Perlはtrueを返します。あなたが知りたいのは、$ xがゼロになることです。

use strict; 
use warnings; 

my $x=0; 

if (not defined $x || $x != 0) { 
    print "fail"; 
} else { 
    print "pass"; 
} 

これはpassを出力します。

そして、私の同僚で述べたように、常に use strict;と use warnings;を使用して、あなたがそれを行うとき、また、あなたの $xの前で myを追加する必要があります。

これは物事を明確にします。