Bonjour à tous,
Après avoir lu et testé pendant 2 jours, je reposte une discussion...
Voici mon Algo :
Lire un fichier Excel
Récupérer toutes la valeurs dans un @tableau
Supprimer toutes les données de la première ligne
Simple n'est-ce pas....
J'ai donc utilisé la fonction "shift" mais celle-ci ne fait que décaler les données vers la gauche...
J'ai aussi chercher à utiliser "splice", mais la mes compétences touchent leur limite, et cela devient très abstrait...
Auriez vous une idée ?
Je vous mets un extrait du code :
###Utilisation des modules
use Spreadsheet:arseExcel::Stream;
###
###Indiquer ici le fichier Excel
my $xls = Spreadsheet:arseExcel::Stream->new('..\xls\result.xls');
###
my $sheet = $xls->sheet(1);
while ( my $row = $sheet->row )
{
###liste @data contenant toutes les infos
###premier test
my @data = shift @$row;
###deuxième test
#my @data = @row[0 .. 7];
###
my $photos = @$row[1];
print "photos : $photos \n";
}
Le Excel ressemble à ceci :
En gros je veux supprimer la ligne contenant CHAMPS...
CHAMPS1 CHAMPS2 CHAMPS3 CHAMPS4 CHAMPS5
1 a b c d
2 e f...
3
4
Partager