Help for this page

Select Code to Download


  1. or download this
    $ perl -le'
   for (1..2) {
...
'
12345
!!!!!
  2. or download this
    %hash = map { my $v = $hash{$_}; s/ /_/g; $_, $v } @sorted;
  3. or download this
    for (@sorted) {
   my $v = delete $hash{$_};
   s/ /_/g;
   $hash{$_} = $v;
}