Perlスクリプトでdieを使って終了させたとき、メッセージの後ろに行番号が表示される時があります。
この行番号表示を抑止する方法を記します。
以下にdieによる行番号表示がされるPerlスクリプトと実行結果を記します。
#!/usr/bin/perl $message = "foo"; die $message;
$ ./die1.pl foo at ./die1.pl line 4.
違いは、表示するメッセージの後ろに\nがあります。
これによりdieによる行番号出力が抑止されます。
#!/usr/bin/perl $message = "foo\n"; die $message;
$ ./die2.pl foo