Discussion :

[caramon _majere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Quelqu'un aurait une piste?

Merci

[caramon _majere]

Avec une copie d'écran ca ira mieux

[caramon _majere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lolo78]

Essaie ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[caramon _majere]

Merci Lolo

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

shift @rows[0];

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

Au final

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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