in reply to Re^5: Introsepcting the current Perl file via DATA, even w/o DATA? (perl5db.pl)
in thread Introspecting the current Perl file via DATA, even w/o DATA?
I found this interesting so I played with it briefly...
and# main.pl my @source = @{ $main::{ '_<' . __FILE__ } }; shift @source; # get rid of sub DB::DB{}; print for @source;
PERL5DB="sub DB::DB{}" perl -d main.pl
Output:
my @source = @{ $main::{ '_<' . __FILE__ } }; shift @source; # get rid of sub DB::DB{}; print for @source;
Update: I had found @{$main::{'_<'.$filename}} yesterday but didn't have time to play with it.
Update 2: Added shift.
|
---|
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 |
In Section
Seekers of Perl Wisdom