Help for this page

Select Code to Download


  1. or download this
        for($r = $wks->{MinRow}; $wks->{MaxRow} && $r <= $wks->{MaxRow}; $
    +r++) {
            if(cell($wks,$r,0) !~ /(group|category|project|client)/i)     
    + { next; }
            if(cell($wks,$r,0) =~ /group/i)    { $group=    cell($wks,$r,1
    +); next; }
            if(cell($wks,$r,0) =~ /category/i) { $category= cell($wks,$r,1
    +); next; }
            if(cell($wks,$r,0) =~ /project/i)  { $project= cell($wks,$r,1)
    +; $client= "0"; }
            if(cell($wks,$r,0) =~ /client/i)   { $client=  cell($wks,$r,1)
    +; }
    
  2. or download this
    # Utility function to safely look inside of a Cell
    sub cell {
    ...
            }
        return "";
        }
    
  3. or download this
    #!/usr/bin/perl -w 
    use strict;
    ...
    
        my $workbook2= $parse_excel->Parse("data/dasnyFootnotes.xls");
            print "Maxrow b: ", 1 + ${$workbook2->{Worksheet}}[0]->{MaxRow
    +}, "\n";