Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: How's your Perl?

by Anonymous Monk
on Oct 27, 2003 at 02:01 UTC ( [id://302343]=note: print w/replies, xml ) Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.


in reply to How's your Perl?

# 1
{
  package MyTie;
  require Tie::Array;
  @ISA = qw/Tie::StdArray/;
  sub STORE {@{$_[0]}[$_[1],$_[1]+1] = ($_[2]) x 2}
}
tie my @x, 'MyTie';


# 6
$x = \42;
$y = "$x";

[download]

Replies are listed 'Best First'.
Re: Re: How's your Perl?
by Juerd (Abbot) on Oct 27, 2003 at 02:38 UTC

    tie my @x, 'MyTie';

    For all exercises: no fork/exec/system/qx/open, no commandline options, no user input, no modules, no tie, no bless, no %SIG.

    I guess the first and most important exercise is reading.

    Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }

[reply]

In Section Meditations

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://302343]
help
Sections?
Information?
Find Nodes?
Leftovers?
    Notices?
    • hippo‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
    • erzuuli‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.