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

Question

如何在 perl 中将.xls 转换为.csv？这个模块是什么？这有什么例子吗？ 最好的转换方式是什么？

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;
}