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]
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' }
www.com | www.net | www.org
No recent polls found