Re^2: get current script as text

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?

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

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