Help for this page

Select Code to Download


  1. or download this
    @new = map lc, @old;
@new = map ord, @old;
@new = map { sprintf('%02X', $_) } @old;
  2. or download this
    use List::MoreUtils qw( apply );
@new = apply { chomp; } @old;
@new = apply { tr/a-z/n-za-m/; } @old;
  3. or download this
    sub func {
   for (my $s = @_ ? $_[0] : $_) {
...

$new = func($old);
@new = map func, @old;