Help for this page

Select Code to Download


  1. or download this
    #! perl -sw
use 5.010;
...
C:\test>junk2
c a b d
Test passed for 1000000 iterations
  2. or download this
    @hashA{ 'a'..'d' } = 1..4;;

...

print join ' ', keys %hashB;;
a d c b
  3. or download this
    my $value_key = join $;, @students{ sort keys %{ $students{ $key } } }
+;