Discussion :

[[root@127.0.0.1]~#]

Bonjour,

Je voudrais écrire un programme en Perl qui compte le nombre d'éléments d'un tableau (que je dois remplir) et l'affiche, puis affiche élément par élément en rajoutant en précisant sa position.

La sortie standard doit être :

Code :

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

1
2
3
4
5
6
7
8
 
~# ./Nb_elem.pl 1 2 3 4 5
        5
        1 0
        2 1
        3 2
        4 3
        5 4

Donc jusqu'à là aucun souci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
#!/usr/local/bin/perl -w
 
use strict;
 
my $nb_elem = scalar(@ARGV);
print $nb_elem."\n";
foreach (@ARGV){
    print "$_\n";
}

Comme sortie :

Code :

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

1
2
3
4
5
6
7
8
 
~# ./Nb_elem.pl 1 2 3 4 5
        5
        1
        2
        3
        4
        5

Le problème se pose lorsque je souhaite inclure l'index de chaque élément de mon tableau :

C'est-à-dire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/local/bin/perl -w
 
use strict;
 
my $nb_elem = scalar(@ARGV);
print $nb_elem."\n";
foreach my $index (keys @ARGV){
    print "$_\n";
    print $index;
}

En faisant cela j'ai comme erreur :

~# ./Nb_elem.pl 1 2 3 4 5
Type of arg 1 to keys must be hash (not array dereference) at ./Nb_elem.pl line 15, near "@ARGV)"
Execution of ./Nb_elem.pl aborted due to compilation errors.

Quelqu'un a t-il une idée svp ?

Merci d'avance,

[iblis]

Le message de Perl est très clair: keys prend pour argument un hash (et retourne la liste des clés).

Tu aurais voulu une fonction qui retourne l'indice de la première occurrence d'un élément dans un tableau ?

Ecris-là ou tourne-toi vers List::MoreUtils (fonction first_index()).

Ce que tu veux faire n'est pas clair ? Est-ce juste un exercice ?

Code :

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

1
2
3
4
print scalar @ARGV, "\n";
for (my $i = 0; my $arg = shift @ARGV; $i++) {
	print "$arg\t$i\n";
}

Ça n'a pas vraiment de sens.

[iblis]

Ou alors tu veux indéxer les positions de toutes les occurrences de chacun des mots d'un tableau ?

Code :

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

1
2
3
4
5
my @data = qw(mes données en vrac sont en vrac);
my %index;
for (my $i = 0; my $arg = shift @data; $i++) {
	push @{$index{$arg}}, $i;
}

Mais là encore pour en faire quoi ?

[Jedai]

Si tu veux juste parcourir le tableau dans l'ordre et afficher index plus contenu :

Code :

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

1
2
3
for my $i (0..$#ARGV) {
  print "$i -> $ARGV[$i]\n";
}

--
Jedaï