Perl встроен в выход и печать одной командой

Question

Я знаю, что могу умереть, но это печатает имя сценария и номер строки.

Мне нравится делать такие вещи, как die 'error' if $problem;

Есть ли способ сделать это без печати строкичисловой материал?

Было бы неплохо не использовать фигурные скобки if($problem){print 'error';exit}

Answer 1

Добавление новой строки к сообщению об ошибке die подавляет добавленный номер строки / имя сценария 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;

Также имейте в виду, что 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;

Answer 4

Вот ответ на вопрос, который вы ответили в комментарии Эрику.

Для выполнения обоих операций (печать STDOUT и печать без номера строки) вы все равно можете использовать die, изменив обработчик __DIE__:

$SIG{__DIE__} = sub { print @_, "\n"; exit 255 };

die "error" if $problem;

Answer 5

Вы можете создавать сложные сообщения с помощью sprintf:

die sprintf( ... ) if $problem;