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

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"; }
TIEHANDLE: TieTest=HASH(0x80fcb38)
Use of uninitialized value in <HANDLE> at line 11.
readline() on unopened filehandle at line 11.
Log In?

What's my password?
Create A New User
[stevieb]: I am thankful that I fell into Perl years ago in the manner I did. I don't believe there is another language that people care about so much, that they're willing to give everything. Langs come and go, but in Perl, it seems, things remain consistent.

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2017-02-25 01:18 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (364 votes). Check out past polls.