Help for this page

Select Code to Download


  1. or download this
    my @colors = qw(red green yellow blue cyan magenta);
my @tmp    = ();
for (@colors) {
    push (@tmp, "bold $_");
}
@colors = (@colors, @tmp);
  2. or download this
    my @colors = qw(red green yellow blue cyan magenta);
push @colors, map "bold $_", @colors;
  3. or download this
    package IO::Drug;
use strict;
use Tie::Handle;
...
tie *STDERR, "IO::Drug", $err;

1;