Perl内置于exit并在一个命令中打印

Question

我知道我可以死,但打印出脚本名称和行号.

我喜欢做类似的事情 die 'error' if $problem;

有没有办法在不打印行号的情况下这样做？

不必使用牙箍会很好 if($problem){print 'error';exit}

Answer 1

在die错误消息中添加换行符会抑制添加的行号/ scriptname verbage:

die "Error\n"

Answer 2

您可以在die字符串中添加一个新行,以防止perl添加行号和文件名:

die "oh no!\n" if condition;

或者写一个函数:

sub bail_out {print @_, "\n"; exit}

bail_out 'oh no!' if condition;

还要记住,默认为stdout时die打印到stderr print.

Answer 3

你可以使用相当自然的声音:

print "I'm going to exit now!\n" and exit if $condition;

如果您有perl 5.10或更高版本并添加use 5.010;到脚本的顶部,您也可以使用say,以避免必须自己添加换行符:

say "I'm going to exit now!" and exit if $condition;