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