Spreadsheet::Read的简单使用

发布时间：2020-12-16 00:14:27 所属栏目：大数据来源：网络整理

导读：? 该模块不能单独使用，需要结合一些模块来使用，在cpan里的描述是这样的。 ? ? ? ? ? ? ? ? 这里需要使用这个模块来读取excel的文件，由于是xlsx格式的，所以，还得需要预先安装Spreadsheet::XLSX这个模块。代码如下： #!/usr/bin/perl?-w ? use?strict;? u

? 该模块不能单独使用，需要结合一些模块来使用，在cpan里的描述是这样的。

? 这里需要使用这个模块来读取excel的文件，由于是xlsx格式的，所以，还得需要预先安装Spreadsheet::XLSX这个模块。代码如下：

 
 
#!/usr/bin/perl?-w?
  
  use?strict;?
  
  use?warnings;?
  
  use?Data::Dumper;?
  
  use?Spreadsheet::Read;?
  
  use?Spreadsheet::XLSX;?
  
  #读取文件?
  
  my?$book??=?ReadData?("./host_list.xlsx");?
  
  #定义列名称，execl中是以字母为列标示符的，如B1，表示第一行B列。这里只考虑A?-?Z列的情况，多余这么多列的情况不考虑。?
  
  my?@ch?=?('A'?..?'Z');?
  
  #获取有效的行数和列数?
  
  my?$maxrow?=?$book?->[1]{'maxrow'};?
  
  my?$maxcol?=?$book?->[1]{'maxcol'};?
  
  ?
  
  for(my?$i?=?1;$i?<?$maxrow;$i++)?
  
  {?
  
  ????for(my?$j?=?0;$j?<?$maxcol;$j++)?
  
  ????{?
  
  ????????my?$value?=?$ch[$j].$i;?
  
  ????????my?$result=$book?->?[1]{"$value"};?
  
  ????????print?$result?if($result);?
  
  ????print?"?";?
  
  ????}?
  
  ????print?"n";?
  
  }?

上面的代码会把excel的sheet1的全部内容输出来。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!