Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
        say "@$row[0, 1]";
    }
}
  2. or download this
    Envvironment Last Updated
bus00eqa 25-Apr-2020
bus00eqz 29-Feb-2020
den00pyy 25-Apr-2020
  3. or download this
    #!/usr/bin/perl
use warnings;
...
    my @cells = $row->findnodes('td | th');
    say join ' ', map $_->textContent, @cells[0, 1];
}