Beefy Boxes and Bandwidth Generously Provided by pair Networks kudra
Perl Monk, Perl Meditation
 
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?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (14)
As of 2014-04-16 16:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (432 votes), past polls