Perl - 從Excel寫入CSV時的空行

Question

我想用Perl將excel文件轉換爲csv文件。爲了方便，我喜歡使用模塊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功能參數，但不能設法解決它。

有沒有人有想法？

非常感謝您提前。除非append => 1給出選項

Answer 1

write_file將覆蓋該文件。所以這個：

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

那麼，在這種特殊情況下，文件::嘟嘟地喝確實複雜化這對我來說。我只是想避免重複自己，這是我在下面的笨拙工作的解決方案所做的：

#!/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(); 

實際上，我不滿意的話，因爲我開等常閉文件（我有很多多行文件）。在性能方面這不是很聰明。

目前我還是不知道如何使用拆分或文字：CSV在這種情況下，爲了把一切到一個數組，打開，寫入和關閉每個文件只一次。

謝謝你的回答TLP。