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 07: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