Re: get current script as text

Replies are listed 'Best First'.
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
mmh, I see... The problem is very silly. I forgot to add a last line to print the variable. `my $codeAsText = do{ local( @ARGV, $/ ) = $0; <>; }; print $codeAsText;` [download] Perhaps you meant: `open (my $foo, $0); print <$foo>; close $foo;` [download] Yes, This solves the problem also, thanks!	[reply] [d/l] [select]
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]