Perl/サンプル/dieでメッセージの後ろに行番号を表示しない方法

• Prev
• Next
• Perl/サンプル

Perlのdieでメッセージの後ろに行番号を表示しない方法 †

Perlスクリプトでdieを使って終了させたとき、メッセージの後ろに行番号が表示される時があります。
この行番号表示を抑止する方法を記します。

dieで行番号が表示されるPerlスクリプト †

以下にdieによる行番号表示がされるPerlスクリプトと実行結果を記します。

dieによる行番号表示がされるPerlスクリプト †

die1.pl

#!/usr/bin/perl

$message = "foo";
die $message;

実行結果 †

$ ./die1.pl 
foo at ./die1.pl line 4.

dieで行番号が表示されないPerlスクリプト †

違いは、表示するメッセージの後ろに\nがあります。
これによりdieによる行番号出力が抑止されます。

dieによる行番号表示が抑止されるPerlスクリプト †

die2.pl

#!/usr/bin/perl

$message = "foo\n";
die $message;

実行結果 †

$ ./die2.pl 
foo