Re^3: get current script as text

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.

Comment on Re^3: get current script as text Select or Download Code

Replies are listed 'Best First'.
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]