Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
        print join '|', @$row;
    }
}
  2. or download this
    ...
-----------
...
TUSTUMENA|2008-Mar-18 1700|N 60░48', W 147░12'|WNGW
Oosterdam|2008-Mar-18 0800|N 23░00', W 107░48'|PBKH
...
  3. or download this
    ...
for my $row ( $table->rows ) {
    if( $row->[ 0 ] ne 'Ships in port or not reporting today:' ) {
    ...