Perl：エラーメッセージなしで「死ぬ」方法？

Question

私は以下のコードとPerlで単純なファイルのテストを実行します。

my $f1 = "$pre_file"; 

unless (-e $1) { 

print "\n Pre_check file does not exists! \n"; 

die; 

} 

それは次のように表示されます

Pre_checkファイルが存在しません！
は、私が「./huawei-postcheckライン81で死んだ」最後の行をしたくないしかし./huawei-postcheckライン81

で死亡しました。

エラーメッセージなしで「死にたい」と思っています。

可能ですか？

Answer 1

あなただけのメッセージを抑制するために

die "\n"; 

を言うことができます。

Answer 2

dieの代わりにexitを使用してください。

Answer 3

恐らくexit 1になります。

Answer 4

my $f1 = "$pre_file"; 

unless (-e $1) { 
    print "\n Pre_check file does not exists! \n"; 
    exit 1; 
} 

Answer 5

dieのドキュメントを参照してください。

リストの最後の要素が改行で終わっていない場合、現在の スクリプト行番号と入力回線番号（もしあれば）も、印刷 と改行が供給されます。

die "\n"を使用するだけで、何も印刷せずにダイを稼働させることができます。しかし、あなたがエラーメッセージを持っているとすれば、なぜあなたはそれを使わないのか分かりません。

unless (-e $f1) { 
    die "\n Pre_check file does not exist!\n"; 
} 

もちろん、メッセージがSTDOUTではなくSTDERRに移動するという違いがあります。しかし、それはおそらくそれが行くための適切な場所です。