Suppression d'un array d'array

Bonjour,

Je dois utiliser un fichier excel pour plus tard me connecter à divers équipements de constructeurs différents en récupérant les valeurs des lignes dans des variables.

Mais je bloque sur une chose bête, je pense, c'est que je ne veux pas de la première ligne ...et je ne sais pas comment la supprimer (voir l'a zapper au moment de la création de l'array).

Mon Code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use warnings; use strict; use v5.22; use Data::Dumper; use Spreadsheet::Read;     my $book = ReadData ("excel.xls"); my @rows = Spreadsheet::Read::rows($book->[1]);   print Dumper @rows;   delete @rows[0]; #undef @rows[0];   print Dumper @rows;   foreach my $ligne (@rows) { say "@${ligne}"; }

---

Résultat

$VAR1 = [
'IP',
'NOM',
'CONSTRUCTEUR',
'VILLE'
];
$VAR2 = [
'10.0.0.1',
'TOTO-1',
'CISCO',
'DIEPPE'
];
$VAR3 = [
'10.0.0.2',
'TOTO-2',
'HP',
'DIEPPE'
];
$VAR4 = [
'10.0.0.3',
'TOTO-3',
'XTREM',
'DIEPPE'
];
$VAR1 = undef;
$VAR2 = [
'10.0.0.1',
'TOTO-1',
'CISCO',
'DIEPPE'
];
$VAR3 = [
'10.0.0.2',
'TOTO-2',
'HP',
'DIEPPE'
];
$VAR4 = [
'10.0.0.3',
'TOTO-3',
'XTREM',
'DIEPPE'
];
Can't use an undefined value as an ARRAY reference at test.pl line 22.

Il faudrait supprimer $VAR1 pour tout décaler à gauche mais je ne trouve pas la solution :roll:

Quelqu'un aurait une piste?

Merci :)

Avec une copie d'écran ca ira mieux

Pièce jointe 219515

Bon bah en fait j'ai trouvé à taton et par hasard avec la commande splice (source :http://perlmaven.com/undef-on-perl-arrays-and-hashes )

La commande splice suprrime le undef même si $VAR1 existe toujours.
Ca ne fait pas très propre mais ca fonctionne.

La question pour supprimer $Var1 est toujours d'acualité :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use warnings; use strict; use v5.22; use Data::Dumper; use Spreadsheet::Read;     my $book = ReadData ("excel.xls"); my @rows = Spreadsheet::Read::rows($book->[1]);   print Dumper @rows;   splice(@rows[0]);     print Dumper @rows;   foreach my $ligne (@rows) { say "@${ligne}"; }

---

Résultat

10.0.0.1 TOTO-1 CISCO DIEPPE
10.0.0.2 TOTO-2 HP DIEPPE
10.0.0.3 TOTO-3 XTREM DIEPPE

Essaie ceci:

Code:

---

1 2 3 4 5 6 7 8 9

use strict; use warnings;   use Data::Dumper; my @rows = ( ["row1", 1], ["row2", 2], ["row3", 3] ); print Dumper \@rows; my $useless = shift @rows; print Dumper \@rows;

---

Affichage:

Code:

---

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

$VAR1 = [ [ 'row1', 1 ], [ 'row2', 2 ], [ 'row3', 3 ] ];   $VAR1 = [ [ 'row2', 2 ], [ 'row3', 3 ] ];

---

Autre solution:

Code:

---

1 2	@rows = @rows[1..$#rows];

---

Merci Lolo :P

Effectivement ca change tout :)
Et c'était tout bête :oops:

AU début j'avais pensé à shift mais comme ceci

Code:

---

shift @rows[0];

---

Ce qui navait juste retiré une valeur dans la première array.

Au final

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

use warnings; use strict; use v5.22; use Data::Dumper; use Spreadsheet::Read;     my $book = ReadData ("excel.xls"); my @rows = Spreadsheet::Read::rows($book->[1]);   print Dumper \@rows;   shift @rows;   print Dumper \@rows;   foreach my $ligne (@rows) { say "@${ligne}"; }

---

Résultat

$VAR1 = [
[
'IP',
'NOM',
'CONSTRUCTEUR',
'VILLE'
],
[
'10.0.0.1',
'TOTO-1',
'CISCO',
'DIEPPE'
],
[
'10.0.0.2',
'TOTO-2',
'HP',
'DIEPPE'
],
[
'10.0.0.3',
'TOTO-3',
'XTREM',
'DIEPPE'
]
];
$VAR1 = [
[
'10.0.0.1',
'TOTO-1',
'CISCO',
'DIEPPE'
],
[
'10.0.0.2',
'TOTO-2',
'HP',
'DIEPPE'
],
[
'10.0.0.3',
'TOTO-3',
'XTREM',
'DIEPPE'
]
];
10.0.0.1 TOTO-1 CISCO DIEPPE
10.0.0.2 TOTO-2 HP DIEPPE
10.0.0.3 TOTO-3 XTREM DIEPPE