get current script as text

vlad_tepesch has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: get current script as text by BrowserUk (Patriarch) on Apr 24, 2012 at 14:01 UTC
The following snippet will put the code of the current top-level script into a variable: `my $codeAsText = do{ local( @ARGV, $/ ) = $0; <>; };` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l]
Re^2: get current script as text by pvaldes (Chaplain) on Apr 24, 2012 at 14:45 UTC
mmh... Your code don't show nothing in my computer (?) This was my idea, but without success still, close, but not cigar... I wonder why `open (my $foo, $0); # binmode $foo, raw; # nothing changes with or without this line print $foo; close $foo;` [download] perl script.pl prints `GLOB(0x9b717dc)` What I'm doing wrong?	[reply] [d/l] [select]
Re^3: get current script as text by BrowserUk (Patriarch) on Apr 24, 2012 at 14:51 UTC
mmh... Your code don't show nothing in my computer (?) My code should work fine anywhere. Post the exact code you are using that is failing. `open (my $foo, $0); print $foo; close $foo;` What I'm doing wrong? You are never reading from the file you opened. You are printing the filehandle you opened. Perhaps you meant: `open (my $foo, $0); print <$foo>; close $foo;` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l] [select]
Re^4: get current script as text by pvaldes (Chaplain) on Apr 24, 2012 at 15:46 UTC
Re^2: get current script as text by vlad_tepesch (Acolyte) on Apr 24, 2012 at 14:13 UTC
thanks that is exactly that i searched.	[reply]
Re^2: get current script as text by BillKSmith (Monsignor) on Apr 24, 2012 at 23:01 UTC
Very clever! I eventually did figure it out, but an explanation would have been appreciated.	[reply]
Re^3: get current script as text by BrowserUk (Patriarch) on Apr 24, 2012 at 23:42 UTC
Very clever! It's not actually intended to be "clever". Just concise and proficient. Ie. idiomatic. I eventually did figure it out, but an explanation would have been appreciated. Had anyone asked for an explanation, it would have been forthcoming. But isn't it just really satisfying when you get there on your own. What's more, the idiom will probably stay with you now, and come back to you when you need it. For reference, see Cheap idioms. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply]
Re: get current script as text by JavaFan (Canon) on Apr 24, 2012 at 16:09 UTC
One of the rare times you can use 1-arg open! `local $/;open 0;my $t=<0>;` [download]	[reply] [d/l]
Re: get current script as text by Anonymous Monk on Apr 24, 2012 at 13:57 UTC
__FILE__ site:perldoc.perl.org `BEGIN { use File::Spec; use File::Basename qw' dirname '; our $thisf = File::Spec->rel2abs(__FILE__); our $thisd = dirname($thisf); }` [download] Then read $thisf if its available, say using File::Slurp or whatever	[reply] [d/l]