用perl加载带中文的excel表格（xlsx）

Posted 2021-04-17 生信开发者

use Spreadsheet::XLSX;
use Unicode::UTF8simple;

my %hash=();
loadCHPO($infileCHPO,\%hash);

sub loadCHPO{
  my ($infile,$hashRef)=@_;
  my $uref =new Unicode::UTF8simple;
  $infile=$uref->fromUTF8('gb2312',$infile);
  my $excel = Spreadsheet::XLSX -> new ($infile);
  my @title = ("ClassCN","ID","nameEN","nameCN","defEN","defCN");
  foreach my $sheet (@{$excel->{Worksheet}}) {
      # printf("Sheet: %s\n", $sheet->{Name});
      my ( $row_min, $row_max ) = $sheet->row_range();
      my ( $col_min, $col_max ) = $sheet->col_range();
      # print $sheet->{MaxRow},"\t",$sheet->{MaxCol},"\t",$row_max ,"\t",$col_max,"\n";
      foreach my $row ($row_min .. $row_max) {
            next if ($row==$row_min);
            my $cell = $sheet->{Cells}[$row][1];
            if ($cell ) {
            # $hashRef->{$sheet->{Cells}[$row][1]->{Val}} =
            # {map {$title[$_] => $sheet->{Cells}[$row][$_]->{Val}} ($col_min .. $col_max)};
            $hashRef->{$cell->{Val}} = {map {$title[$_] => 
                 $sheet->{Cells}[$row][$_] && $sheet->{Cells}[$row][$_]->{Val}=~/([\x80-\xFF][\x80-\xFF])/ ? 
                 decode("utf8",$sheet->{Cells}[$row][$_]->{Val}) :  $sheet->{Cells}[$row][$_]->{Val}
            } ($col_min .. $col_max)};
          }
      }
  }
  print STDERR "Done load $infile\n";
}