Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E 'my %y = qw{c 3 d 4}; say "@{[%y]}";'
c 3 d 4
  2. or download this
    $ perl -Mstrict -Mwarnings -E 'my %y = qw{c 3 d 4}; 
> say "@{[join q{;} => map { $_ . q{=} . $y{$_} } sort { $b cmp $a } k
+eys %y]}";'
d=4;c=3
  3. or download this
    $ perl -Mstrict -Mwarnings -E 'sub z { reverse @_ } my %y = qw{c 3 d 4
+};
> say "@{[z(%y)]}";'
4 d 3 c