[Moscow.pm] Сплит $@
Alex Varyanick
q на cono.org.ua
Вт Дек 6 02:12:30 PST 2011
2011/12/6 Ivan Petrov <i.petro.77.00 на gmail.com>:
> она там приходит перемешана с разного рода добавками
>
> то есть кто-то написал die 123;
> а придет "123 at File.name line 345"
>
> а иногда еще добавит разного рода другой мусор
local $SIG{__DIE__} = sub {
(undef, $filename, $line) = caller(0);
$line = do {
open(my $fh, $filename);
my @l = <$fh>;
$l[$line - 1];
};
};
:)
естb ещё возможность через perl -d и тогда: $main::{"_<$filename"}, но
у меня с пол-пинка не вышло, если будет время, - поковыряю
--
Varyanick I. Alex
icq: 102 575 440
skype: cono..
q на cono.org.ua
Подробная информация о списке рассылки Moscow-pm