Perl, абстрактная задачка

[nataraj]

В программе масса вот такого:

$smtp->mail($cfg->{from}) or die $smtp->message;

$smtp->message возвращает сообщение с переводом строки
die -- не выводит сообщение at ./script line 13. если в конце сообщения есть перевод строки

Как не переписывая модуль Net::SMTP, не заводя доп. функций, и не городя больших конструкций вокруг исходного функционала... сделать так чтобы at ... line таки выводился...

Comments

[alexkuklin.livejournal.com]

chomp($smtp->message)

[shaplov.livejournal.com]

авотхуй...
Оно возвращает отрезанный символ, а саму переменную меняет...

[slobin.livejournal.com]

slobin@loreley:~/Pictures$ cat zz
#!/usr/bin/perl
use Carp;
croak "problem here\n";

slobin@loreley:~/Pictures$ ./zz
problem here
 at ./zz line 3

Это поможет?

... Ложные чайки питаются чайными ложками ...

[vitus_wagner]

substr($smtp->message,0,-1)

Правда, это хак. Оно закладывается на то что \n в message ECТЬ

[what-me.livejournal.com]

Что-то вроде этого в начале скрипта

$SIG{__DIE__} = sub { $_[0] =~ /((?: at \S+ line .*)?(?:\n+))?$/;
die join('::', caller) . "\n$`\n";
};


[shaplov.livejournal.com]

Ну во-первых это таки дополнительная функция... не соответствует условиям задачи...

А во-вторых -- я боюсь что это как раз пример write-only кода, которого я стараюсь избегать... ;-)

[shaplov.livejournal.com]

О! Тоже вариант...
Он с устраивающей меня вероятностью есть... Поскольку отладка внутренняя, то с малой вероятностью без последней буквы имеет право пожить...

[shaplov.livejournal.com]

Ага! есть!

[what-me.livejournal.com]

Ну, напишите не write-only. Смысл в применении обработчика сигнала DIE. Плюсы -- одним махом избавляемся от необходимости отслеживания "\n" при умирании

Другие варианты: переопределение Net::SMTP::message, или пляски вокруг каждого die

[shaplov.livejournal.com]

Ну я в результате сплясал вокруг каждого die по методу витуса...

Переопределять метод внутри малого скрипта -- оверкилл...

[blog.vnaum.com (from livejournal.com)]

Два варианта ещё:
1. die scalar(chomp($smtp->message), $smtp->message);
2. die $smtp->message =~ s/\n$//;

[gegmopo4.livejournal.com]

Чем die $smtp->message."-"; (или как там это записывается в перле) не угодил?