Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

revdiablo's scratchpad

by revdiablo (Prior)
on Jun 01, 2004 at 17:23 UTC ( #358283=scratchpad: print w/replies, xml ) Need Help??

Copying variables the hacktastic way:
#!/usr/bin/perl -l sub foo { open "/foo"; print 0+$!, " $!"; print 0+$_[0], " $_[0]"; } # not copied mkdir "/foo"; foo $!; print "---"; # copied with string interpolation mkdir "/foo"; foo "$!"; print "---"; # copied with temp scalar mkdir "/foo"; foo ${ \(my $t = $!) }; print "---"; # copied with array deref mkdir "/foo"; foo @{[$!]};

And the output:

2 No such file or directory 2 No such file or directory --- 2 No such file or directory 0 Permission denied --- 2 No such file or directory 13 Permission denied --- 2 No such file or directory 13 Permission denied
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[thepkd]: temporary variables
[moritz]: [ { a => [ { b => 1 } ] } ]
[choroba]: dereference ne creation
[choroba]: at least in my lingo
[moritz]: .oO( oh temps, oh moritz )
[GotToBTru]: you are correct, choroba, but of course there is no point in doing one without the other
[GotToBTru]: un less you're working on write-only memory
[1nickt]: my $x = $aohoaoh->[0]->{' foo'}->[0]->{'bar' }; should work
[thepkd]: not indexing
[thepkd]: getting data out of the ds

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (14)
As of 2016-12-06 13:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (104 votes). Check out past polls.