Re: 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]

Comment on Re: How's your Perl? Download Code

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]


laziness, impatience, and hubris
	PerlMonks