http://qs321.pair.com?node_id=340317


in reply to How's your Perl?

6 of 12
Exercise 1: Create an array @x such that changing $x[0] also sets $x[1] to the same value
$[=1;@x=();

Exercise 2: Given a pre-declared function "foo", write a code snippet that invokes it in an infinite loop; in 10 chars
{foo;redo}

Exercise 4: Dump core in 6 chars
dump()

Exercise 5: Create a static variable lexically scoped to a sub, and no wider than that. It's ok if it blows up under recursion
sub foo{my $static if 0}

Exercise 6: Create $x, $y such that $x eq $y && $$x ne $$y
$x=\1;$y="$x"

Exercise 8: Create $foo such that ($foo^=0)++ eq $foo++
*foo=*|;$|=1;