Help for this page

Select Code to Download


  1. or download this
    do_something($_) for qw(
  foo
  bar
  baz
  );
  2. or download this
    do_something($_) for qw(
  foo
  bar  # introduced November, 2005
  baz  # deprecated - remove by December, 2006
  );
  3. or download this
    #!/usr/bin/perl

...
    s/#.*$// for @lines;
    map { split ' ', $_ } @lines;
}