Perlがこのメッセージを印刷して終了しないのはなぜですか？

Question

OK：

my $login='anybody'; 
exit if $login ne 'root'; 

ないでOK：なぜ以下の印刷されない "error"？

my $login='anybody'; 
(print "error" && exit) if $login ne 'root'; 

（条件）{行動}について知っています。私はちょうど現在の問題について知りたい。

Answer 1

何を書かれていることは言うので：

は、「文字列 『エラー』とコマンド出口の結果の評価を印刷する」

あなたが実際に書くことができます：

を

((print "error\n") && exit) if $login ne 'root'; 

ただし、しないでください。 :)

Answer 2

"エラー"が表示されていないと思われますが、正しいですか？これは、式print "error" && exitがprint ("error" && exit)と解釈されるためです。代わりにこれを試してみてください：

do { print "error"; exit } if $login ne 'root'; 

Answer 3

3つの問題があります。

---

最初に問題となるのは、優先事項の1つです。

print "error" && exit if ...; 

は

print("error" && exit) if ...; 

可能な修正と同じです：

(print "error") && exit if ...; 
print("error") && exit if ...; 
print "error" and exit if ...; 

---

第二の問題は、exitがprintの結果を条件であるということです、それは適切ではありません。 printがエラーを返しても終了します。

可能な修正：

(print "error"), exit if ...; 
print("error"), exit if ...; 

---

第三の問題は、これがエラーを報告する本当に貧弱な方法であるということです。エラーはSTDERRに出力され、ゼロ以外の終了コードを使用する必要があります。 dieはここでうまくいくでしょう。

die "error" if ...;