Help for this page

Select Code to Download


  1. or download this
    $ perl -le'my %x = "A" .. "F"; print "@{[ %x ]}"; $_ = lc for %x; prin
+t "@{[ %x ]}";'
C D A B E F
C d A b E f
  2. or download this
    $ perl -le'my %x = "A" .. "F"; print "@{[ %x ]}"; $x{ lc() } = delete 
+$x{ $_ } for keys %x; print "@{[ %x ]}";'
E F A B C D
c D a B e F