[Moscow.pm] get own source code

[PEF Secure]

On Sunday, March 29, 2015 07:55:30 Фролов Павел wrote:
> sub _get_file_line
> {
>    my ( $filename, $line_number ) = @_;
>    # http://docstore.mik.ua/orelly/perl/cookbook/ch08_09.htm
>    open( my $source_fh, "<", $filename )  or die "cannot open <
> $filename: $!";
>    $line_string = undef;
>    $. = 0;
>    do { $line_string = <$source_fh> } until $. == $line_number || eof;
>    close( $source_fh ) || warn "close failed: $!";
>    return $line_string;
> }
> 
>    my $source_file = (caller(0))[1];
>    my $source_line = (caller(0))[2];
> 
>    _get_file_line( $source_file, $source_line )

Прочитать файл построчно не является для меня проблемой. Вопрос в том, чтобы 
видеть не тот код, что был прочитан с диска, а тот, что исполнялся 
интерпретатором. Посмотрите внимательно моё начальное сообщение темы.

-- 
PEF Developer