Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my @totalrows = $table->rows ();

print "$_->[0] - $_->[1] - $_->[2]\n" for @totalrows;
  2. or download this
    Cell 1 - Cell 2 - Cell 3
Cell 4 - Cell 5 - Cell 6
  3. or download this
    my @totalrows =
    map {my $cells = $_; $_ ||= '***' for @{$cells}[0 .. 2]; $cells}
    $table->rows ();
  4. or download this
    Boss  - Firstname Surname  - ***
Secretary  - Name Surname, Mr Jones Smith - ***
...
*** - Asdf Ghjk  - Name Lastname, First Last 
*** - Sally Mally  - Joe Smoe, The Who, Will Timberland 
Position 2  - Paula Simon  - Raymonde Maalouf