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