Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re^2: get current script as text

by pvaldes (Chaplain)
on Apr 24, 2012 at 14:45 UTC ( #966863=note: print w/replies, xml ) Need Help??

in reply to Re: get current script as text
in thread 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;

perl prints


What I'm doing wrong?

Replies are listed 'Best First'.
Re^3: get current script as text
by BrowserUk (Pope) 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;

    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?

      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;

      Perhaps you meant:

      open (my $foo, $0); print <$foo>; close $foo;

      Yes, This solves the problem also, thanks!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://966863]
[Corion]: Cosmic37: Ah, see perlfaq4, about How do I compute the intersection of two arrays
[Cosmic37]: I am out of practice; I use Perl for scientific programming for number crunching
[Corion]: Cosmic37: Basically, you read one file into a hash, keyed by your key, and then match the lines from the second file to that hash
[Cosmic37]: note that the two files only have datetimes which may match whereas other data per line is different format in file1 and file2 - is that really intersection?
[jedikaiti]: Hi Monks
[Corion]: Cosmic37: Well, if you want to use only parts of a line for the key, see split or whatever other mechanism to extract the key from the line
[Corion]: Hi jedikaiti!
[Cosmic37]: is there a webpage for full CB for this chat rather than side panel chat?
[Cosmic37]: thank you for advice
[Cosmic37]: peach greets jedi

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2017-06-29 16:21 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (672 votes). Check out past polls.