nekem van sql szkript (pl: a.sql) generáló 10 csv fájl
ex: a.csv
b.csv
c.csv .........
Nemkéne de szeretne 10 külön csv fájl
szeretnék venni egy csv fájlokat a 10 különböző lapot, amely tartalmazza az összes adatot
ez lehetséges UNIX

A forgatókönyvben, vagy parancsot do:

command > file.csv
secondcommand >> file.csv
thirdcommand >> file.csv

A csv fájl egy sima szöveges fájl, és nem formázást. Mint ilyen, nem lehet "fülek" (hacsak nem vagyok valami hiányzik itt.)

Abban az esetben, ha olyan Excel-munkafüzet A több mint egy munkalapot (a "tab" pedig a "munkalap"), akkor használhatjuk perl.

Ez perl program hurkok egyes rendszereken keresztül csv fájlt az aktuális könyvtárban és kiírja az adatokat a munkalap a munkafüzet "alldata.xls" az aktuális könyvtárban. A neve a csv fájl nevét a munkalapon.

$ 
$ # display the contents of the csv files
$ cat a.csv
abc,123,def,12.34
xyz,456,pqr,99.87
def,389,rst,1234.56
$                  
$ cat b.csv        
abcdefghi,123456.789
bcdefghij,234567.890
$                   
$ cat c.csv
a,1,bcd,1.2,efg
b,2,cde,2.3,fgh
c,3,def,3.4,ghi
$              
$ # display the contents of the perl program
$                                           
$ cat createwsheets.pl                      
#!/usr/bin/perl -w                          
use Spreadsheet::WriteExcel;                

# create a new workbook
my $workbook = Spreadsheet::WriteExcel->new('alldata.xls');
# loop through csv files                                   
foreach $file (glob "*.csv") {                             
  print "Processing file    => $file\n";                   
  open (F, $file) or die "Can't open $file: $!";           
  @x = <F>;                                                
  close (F) or die "Can't close $file: $!";                
  ($worksheet = $file) =~ s/.csv//;                        
  print "Creating worksheet => $worksheet\n";              
  # create a new worksheet in the workbook                 
  $worksheet = $workbook->add_worksheet($worksheet);       
  $col = $row = 0;
  foreach $elem (@x) {
    @data = split/,/, $elem;
    foreach $cv (@data) {
      # print data in worksheet
      $worksheet->write($row, $col, $cv);
      $col++;
    }
    $row++;
    $col = 0;
  }
  print "-"x30,"\n";
}

$
$ # run the perl program
$
$ perl createwsheets.pl
Processing file    => a.csv
Creating worksheet => a
------------------------------
Processing file    => b.csv
Creating worksheet => b
------------------------------
Processing file    => c.csv
Creating worksheet => c
------------------------------
$
$ ls -1 *.csv *.xls
a.csv
alldata.xls
b.csv
c.csv
$
$