Perl - пустые строки при записи CSV из Excel

Question

Я хочу конвертировать excel-файлы в csv-файлы с помощью Perl. Для удобства я хотел бы использовать модуль File :: Slurp для операций чтения/записи. Мне нужно это в подфункции.

При печати на экране программа генерирует желаемый результат, созданные csv-файлы, к сожалению, содержат только одну строку с точкой с запятой, поле пуст.

Вот код:

#!/usr/bin/perl 

use File::Copy; 
use v5.14; 
use Cwd; 
use File::Slurp; 
use Spreadsheet::ParseExcel; 


sub xls2csv { 
    my $currentPath = getcwd(); 
    my @files  = <$currentPath/stage0/*.xls>; 

    for my $sourcename (@files) { 
     print "Now working on $sourcename\n"; 
     my $outFile = $sourcename; 
     $outFile =~ s/xls/csv/g; 
     print "Output CSV-File: ".$outFile."\n"; 
     my $source_excel = new Spreadsheet::ParseExcel; 
     my $source_book = $source_excel->Parse($sourcename) 
      or die "Could not open source Excel file $sourcename: $!"; 

     foreach my $source_sheet_number (0 .. $source_book->{SheetCount} - 1) 
     { 
      my $source_sheet = $source_book->{Worksheet}[$source_sheet_number]; 

      next unless defined $source_sheet->{MaxRow}; 
      next unless $source_sheet->{MinRow} <= $source_sheet->{MaxRow}; 
      next unless defined $source_sheet->{MaxCol}; 
      next unless $source_sheet->{MinCol} <= $source_sheet->{MaxCol}; 

      foreach my $row_index (
       $source_sheet->{MinRow} .. $source_sheet->{MaxRow}) 
      { 
       foreach my $col_index (
        $source_sheet->{MinCol} .. $source_sheet->{MaxCol}) 
       { 
        my $source_cell = 
         $source_sheet->{Cells}[$row_index][$col_index]; 
        if ($source_cell) { 

         print $source_cell->Value, ";"; # correct output! 

         write_file($outFile, { binmode => ':utf8' }, $source_cell->Value, ";"); # only one row of semicolons with empty fields! 
        } 
       } 
       print "\n"; 
      } 
     } 

    } 
} 

xls2csv(); 

Я знаю, что есть что-то делать с передачи параметров в функции write_file, но никак не удавалось зафиксировать его.

Есть идеи?

спасибо, что заранее.

Answer 1

write_file будет перезаписывать файл, если не указан параметр append => 1. Таким образом:

write_file($outFile, { binmode => ':utf8' }, $source_cell->Value, ";"); 

Будут записывать новый файл для каждого нового значения ячейки. Однако это не соответствует вашему описанию «только одна строка из полуколоней пустых полей», так как это должно быть только одна точка с запятой и одно значение.

Я сомневаюсь в этом отношении от вас: "For convenience I like to use the module File::Slurp". Хотя заявление print работает так, как должно, с использованием File::Slurp нет. Так как это удобно?

Что нужно делать, если вы все еще хотите использовать write_file, это собрать все строки для печати, а затем распечатать их все сразу в конце цикла. Например .:

$line .= $source_cell->Value . ";"; # use concatenation to build the line 
... 
push @out, "$line\n";     # store in array 
... 
write_file(...., \@out);    # print the array 

Другой простой вариант будет использовать join или использовать Text::CSV модуль.

Answer 2

Ну, в данном конкретном случае File :: Slurp действительно усложнял это для меня. Я просто хотел, чтобы избежать повторять себя, что я и сделал в следующем неуклюжем рабочем растворе:

#!/usr/bin/perl 

use warnings; 
use strict; 
use File::Copy; 
use v5.14; 
use Cwd; 
use File::Basename; 
use File::Slurp; 
use Tie::File; 
use Spreadsheet::ParseExcel; 
use open qw/:std :utf8/; 

# ... other functions 

sub xls2csv { 
    my $currentPath = getcwd(); 
    my @files  = <$currentPath/stage0/*.xls>; 
    my $fh; 

    for my $sourcename (@files) { 
     say "Now working on $sourcename"; 
     my $outFile = $sourcename; 
     $outFile =~ s/xls/csv/gi; 
     if (-e $outFile) { 
      unlink($outFile) or die "Error: $!"; 
      print "Old $outFile deleted."; 
     } 
     my $source_excel = new Spreadsheet::ParseExcel; 
     my $source_book = $source_excel->Parse($sourcename) 
      or die "Could not open source Excel file $sourcename: $!"; 

     foreach my $source_sheet_number (0 .. $source_book->{SheetCount} - 1) 
     { 
      my $source_sheet = $source_book->{Worksheet}[$source_sheet_number]; 

      next unless defined $source_sheet->{MaxRow}; 
      next unless $source_sheet->{MinRow} <= $source_sheet->{MaxRow}; 
      next unless defined $source_sheet->{MaxCol}; 
      next unless $source_sheet->{MinCol} <= $source_sheet->{MaxCol}; 

      foreach my $row_index (
       $source_sheet->{MinRow} .. $source_sheet->{MaxRow}) 
      { 
       foreach my $col_index (
        $source_sheet->{MinCol} .. $source_sheet->{MaxCol}) 
       { 
        my $source_cell = 
         $source_sheet->{Cells}[$row_index][$col_index]; 
        if ($source_cell) { 
         print $source_cell->Value, ";"; 
         open($fh, '>>', $outFile) or die "Error: $!"; 
         print $fh $source_cell->Value, ";"; 
         close $fh; 
        } 
       } 
       print "\n"; 
       open($fh, '>>', $outFile) or die "Error: $!"; 
       print $fh "\n"; 
       close $fh; 
      } 
     } 

    } 
} 

xls2csv(); 

Я на самом деле не счастлив с ней, так как я открываю и так часто закрывать файлы (у меня есть много файлы со многими строками). Это не очень умно с точки зрения производительности.

В настоящее время я до сих пор не знаю, как использовать split или Text: CSV в этом случае, чтобы помещать все в массив и открывать, записывать и закрывать каждый файл только один раз.

Спасибо за ваш ответ TLP.