[Moscow.pm] Сплит $@

[Alex Varyanick]

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