Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

sgifford's scratchpad

by sgifford (Prior)
on Jun 13, 2004 at 17:48 UTC ( #366283=scratchpad: print w/replies, xml ) Need Help??

This code:
#!/usr/bin/perl + use warnings; use strict; + use Symbol; + our $f1; $f1 = gensym; tie *$f1, 'TieTest'; <$f1>; + package TieTest; + sub TIEHANDLE { my $class = shift; my $obj = { }; bless $obj, $class; warn "TIEHANDLE: $obj\n"; $obj; } + sub READLINE { warn "READLINE\n"; return "line\n"; }
Produces:
TIEHANDLE: TieTest=HASH(0x80fcb38)
Use of uninitialized value in <HANDLE> at tietest.pl line 11.
readline() on unopened filehandle at tietest.pl line 11.
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[Lady_Aleena]: What?! Can't stat ~/Music: No such file or directory? The ~/ doesn't expand?
[Lady_Aleena]: And the env variable $HOME doesn't work either. !@#$
[shmem]: no, that's a shell feature. Use $ENV{HOME}
[marioroy]: my $ans = qx{ find \$HOME -name "*.pl" -exec ls -l {} \\; };
[marioroy]: must backslash $ inside qx
[Lady_Aleena]: I haven't written perl for a while, I've been trying to do things at the command line. I'm having to relearn a lot.
[marioroy]: LA can you post the qx find again
[Lady_Aleena]: Things I would have written a script for while I was on Windows, I can run simply on the command line.

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (13)
As of 2017-04-23 21:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (432 votes). Check out past polls.