Re^6: Introsepcting the current Perl file via DATA, even w/o DATA? (perl5db.pl)

I found this interesting so I played with it briefly...

# main.pl
my @source = @{ $main::{ '_<' . __FILE__ } };
shift @source; # get rid of sub DB::DB{};
print for @source;
[download]

and

PERL5DB="sub DB::DB{}" perl -d main.pl
[download]

Output:

my @source = @{ $main::{ '_<' . __FILE__ } };
shift @source; # get rid of sub DB::DB{};
print for @source;
[download]

Update: I had found @{$main::{'_<'.$filename}} yesterday but didn't have time to play with it.

Update 2: Added shift.

Comment on Re^6: Introsepcting the current Perl file via DATA, even w/o DATA? (perl5db.pl) Select or Download Code

Replies are listed 'Best First'.
Re^7: Introspecting the current Perl file via DATA, even w/o DATA? (perl5db.pl) by LanX (Saint) on Feb 05, 2016 at 17:05 UTC
> Added shift. as a side note: line numbers start with 1, so changing the content of the 0th element may be the better strategy. ( Otherwise looking up a line will include a cumbersome -1 operation.) Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]