1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
#!/usr/bin/perl
use strict;use warnings;
use Spreadsheet::WriteExcel;
my ($sec, $min, $heure, $jour, $mois,$annee, undef, undef, undef) = localtime(time-3600*24);
$mois += 1 and $annee -= 100;
$jour = sprintf("%02d",$jour);
$mois = sprintf("%02d",$mois);
my $d0 = "$annee$mois$jour";
open LIRE_CSV,"/home/Desktop/file_20$d0.csv"
or die "E/S : $!\n";
my $classeur = Spreadsheet::WriteExcel->new("/home/Desktop/file_20$d0.xls");
my $feuille = $classeur->add_worksheet();
while(<LIRE_CSV>){
chomp;
my @tmp = split /;/,$_;
my $c = 0; # la colonne commence à zéro
my $r = $. - 1; # le nombre de ligne correspond au nombre de lignes de .csv - 1 (commence à zéro)
foreach my $e(@tmp){
$feuille->write($r,$c,$e);
++$c;
}
}
__END__ |
Partager