Discussion :

[sbtrinity]

bonjour,
je debute en perl, je souhaiterais savoir pourquoi ma fonction split ne marche pas

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;
 
my $nb=scalar(@ARGV);
open(FICHIER,$ARGV[0]);
my @mots;
my @allwords;
 
while($ligne=<FICHIER>){
#print "ligne: $ligne";
@mots = split(/ /,$ligne);
push(@allwords,@words);
}
foreach $a(@words){print "words: $a";}
foreach $l (@allwords)
{ print $l;
	#foreach $l2(@l){
	#print "$l2 \n";
	#}
}
 
close(FICHIER);

en fait je lis des lignes dans un fichier je cherche a mettre les mots des lignes dans un tableau
merci

[djibril]

pourquoi tu dis que ça fonctionne pas? et c'est peut être ton push qui deconne.

[sbtrinity]

effectivement c est le push qui ne marche pas
je ne vois pas du tout comment mettre des tableaux ds un tableau

[djibril]

En les concaténant.
Ex :

Code :

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

1
2
3
4
my @toto = ("tutu", "toto");
my @popo = ("ddd", "qqq");
my @test = (@toto,@popo);
print "@test\n";

[Jedai]

En les concaténant.
Ex :

Code :

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

1
2
3
4
my @toto = ("tutu", "toto");
my @popo = ("ddd", "qqq");
my @test = (@toto,@popo);
print "@test\n";

C'est lent si tu veux juste rajouter un tableau à la fun d'un autre. push() est tout à fait approprié et marche très bien, tant qu'on utilise les bons noms de variables !!!

Code :

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

1
2
@mots = split(/ /,$ligne);
push(@allwords,@words);

Tu devrais utiliser le pragma "strict" pour éviter ce genre de problèmes, consulte le thread de conseils pour un bon style en Perl.

--
Jedaï

[djibril]

autant pour moi