如何把.xls文件转换为.csv文件？

Question

如何将.xls转换为.csv in perl？这是什么模块？有没有这样的例子？ 什么是转换的最佳方式？

use Spreadsheet::ParseExcel; 
my $xlsparser = Spreadsheet::ParseExcel->new(); 
my $xlsbook = $xlsparser->parse('/home/Admin/Downloads/abc.xls'); 
my $xls = $xlsbook->worksheet(0); 
my ($row_first, $row_last) = $xls->row_range(); 
my ($col_first, $col_last) = $xls->col_range(); 
my $csv = '/home/Admin/Downloads/ram.csv'; 
for my $row ($row_first .. $row_last) {  # Step through each row 
    for my $col ($col_first .. $col_last) { # Step through each column 
     my $cell = $xls->get_cell($row, $col); # Get the current cell 
     next unless $cell; 
     $csv .= $cell->unformatted(); # Get the cell's raw data -- no border 
             # colors or anything like that 
     if ($col == $col_last) { 
      $csv .= "\n"; 
     } else { 
      $csv .= ","; 
     } 
    } 
} 
open(my$FH ,'>',"$csv") or die "oops!"; 

while (my$line = <$xlsbook>){ 
    print $FH $line; 
} 

哎呀！在csv.pl第23行。

Answer 1

使用perl脚本。使用CPAN中的Spreadsheet :: ParseExcel perl模块解析xls文件，然后输出为csv应该可以正常工作。

Here is the link

and this link

Answer 2

你在你的代码输入错误。

open(my $FH ,'>',"$csv") or die "oops!"; 

while (my $line = <$FH>){ 
    print $FH $line; 
}