excel 解析 评审书

excel模板:

 

   

​	​	​	​
​	姓名	推荐与否	​
​	aa1	不推荐	​
​	aa1	不推荐	​
​	aa1	不推荐	​
​	aa2	推荐	​
​	aa2	推荐	​
​	aa2	推荐	​
​	aa3	不推荐	​
​	aa3	不推荐	​
​	aa3	推荐	​
​	aa4	推荐	​
​	aa4	推荐	​
​	aa4	推荐	​

解析内容：

  

#!/usr/bin/perl -w
use Spreadsheet::ParseExcel;

my %hash;
&excel_parse("test.xls",\%hash);
&excel_parse("test1.xls",\%hash);
while(my($key,$value)=each %hash)
{
  print "$key\t$value\n";
}

sub excel_parse()
{
my $file=shift;
my $hash=shift;
my $parse=Spreadsheet::ParseExcel->new();
my $excel=$parse->parse($file);
if(!defined($excel))
{
  print "error\n";exit 1;
}

for my $worksheet($excel->worksheets())
{
  my($row_min,$row_max)=$worksheet->row_range();
  my($col_min,$col_max)=$worksheet->col_range();

  for my $row($row_min..$row_max)
   {
           my $cell1=$worksheet->get_cell($row,$col_min);
           my $cell2=$worksheet->get_cell($row,$col_max);
           next unless $cell1;
           my $last=$cell2->value();
           my $len=length($last);
           if($len == 2)
           {
            if(!exists($hash->{$cell1->value()}))

              {
                $hash->{$cell1->value()}=1;
              }
             else
              {
                $hash->{$cell1->value()}=$hash->{$cell1->value()}+1;
              }
            }
   }
}

}