Help for this page

Select Code to Download


  1. or download this
    sub my_uc {
    my $c = shift;
...

@a = map my_uc, @a;
print "==>@a<== my_uc,\n";
  2. or download this
    ==>A B C<== { uc($_) }
==>A B C<== { my_uc($_) }
==>A B C<== uc,
==>  <== my_uc,
  3. or download this
    sub my_new_uc {
    my $c = shift // $_;
...

@a = map my_new_uc, @a;
print "==>@a<== my_new_uc,\n";
  4. or download this
    ==>A B C<== my_new_uc,
==>  <== my_uc,
==>  <== my_new_uc,