Преобразование файла .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; 
} 

Oops! на линии csv.pl 23.

Ошибка при опрокидывании. Что случилось в моем коде? Пожалуйста, найдите ошибку в моем коде. Спасибо заранее.

Answer 1

У вас есть опечатка:

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

Используй строгую и предупреждение, и вы получили предупреждение во время компиляции.

use strict; 
use warnings; 

Вы опечаток:

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

while (my$line = <$FH>){ 

С уважением,