Help for this page

Select Code to Download


  1. or download this
    my @in = qw(a b c d e f g h);

print "Start: ",@in,"\n","***RUNNING MAP***\n\n";
my @out = map { s/.$/x/}  @in;
print "in : ",@in,"\n";
print "out: ",@out,"\n"
  2. or download this
    Start: abcdefgh
***RUNNING MAP***

in : xxxxxxxx
out: 11111111
  3. or download this
    my @in = qw(a b c d e f g h);

print "Start: ",@in,"\n","***RUNNING MAP***\n\n";
my @out = map { s/.$/x/r}  @in;
print "in : ",@in,"\n";
print "out: ",@out,"\n"
  4. or download this
    Start: abcdefgh
***RUNNING MAP***

in : abcdefgh
out: xxxxxxxx
  5. or download this
    my @in = qw(a b c d e f g h);

print "Start: ",@in,"\n","***RUNNING MAP***\n\n";
my @out = map { s/.$/x/}  my @temp = @in;
print "in : ",@in,"\n";
print "out: ",@out,"\n"
  6. or download this
    Start: abcdefgh
***RUNNING MAP***

in : abcdefgh
out: 11111111