Help for this page

Select Code to Download


  1. or download this
    use 5.20.0;
use warnings;
...
    pop @column;
    }
say "Column ${column}'s last defined row = ", $#column;
  2. or download this
    my $colref = ReadData ("file.xls")->[$sheet]{cell}[$column];
pop @$colref while $#$colref > 1 && !defined $colref->[-1];
say "Column ${column}'s last defined row = ", $#$colref;
  3. or download this
    say "Column ${column}'s last defined row = ",
    ReadData ("file.xls")->[$sheet]{maxrow};