while (<>) { for $a (split) {print "$a -- fichier $ARGVn"} }
-- J-L.M.
nicolas_laurent545
Vous m'avez compris. Merci. Mais seulement si j'ajoute -- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque mot ça ne fonctionne pas. Mes premiers pas vers la programmation.. Merci encore.
while (<>) { my @words = split(/W*s+W*/, $_); # split foreach my $num ( 0 .. $#words) { {print "$words[$num], -- fichier $ARGVn"}
} }
(Jean-Louis MOREL) wrote in message news:<42432b43$0$11701$...
Dans l'article , a dit...
Comment faire pour imprimer les mots dans chaque fichier plus le nom du fichier.
while (<>) { my @words = split(/W*s+W*/, $words); # split print "words$n"; }
while (<>) { for $a (split) {print "$a -- fichier $ARGVn"} }
Vous m'avez compris. Merci. Mais seulement si j'ajoute
-- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque
mot ça ne fonctionne pas. Mes premiers pas vers la programmation..
Merci encore.
while (<>) {
my @words = split(/W*s+W*/, $_); # split
foreach my $num ( 0 .. $#words) {
{print "$words[$num], -- fichier $ARGVn"}
}
}
jl_morel@bribes.org (Jean-Louis MOREL) wrote in message news:<42432b43$0$11701$8fcfb975@news.wanadoo.fr>...
Dans l'article <97fc9ebc.0503241030.7aaa2b95@posting.google.com>,
nicolas_laurent545@hotmail.com a dit...
Comment faire pour imprimer les mots dans chaque fichier plus le nom du
fichier.
while (<>) {
my @words = split(/W*s+W*/, $words); # split
print "words$n";
}
Vous m'avez compris. Merci. Mais seulement si j'ajoute -- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque mot ça ne fonctionne pas. Mes premiers pas vers la programmation.. Merci encore.
while (<>) { my @words = split(/W*s+W*/, $_); # split foreach my $num ( 0 .. $#words) { {print "$words[$num], -- fichier $ARGVn"}
} }
(Jean-Louis MOREL) wrote in message news:<42432b43$0$11701$...
Dans l'article , a dit...
Comment faire pour imprimer les mots dans chaque fichier plus le nom du fichier.
while (<>) { my @words = split(/W*s+W*/, $words); # split print "words$n"; }
while (<>) { for $a (split) {print "$a -- fichier $ARGVn"} }
jl_morel
Dans l'article , a dit...
Vous m'avez compris. Merci. Mais seulement si j'ajoute -- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque mot ça ne fonctionne pas. Mes premiers pas vers la programmation.. Merci encore.
while (<>) { my @words = split(/W*s+W*/, $_); # split foreach my $num ( 0 .. $#words) { {print "$words[$num], -- fichier $ARGVn"}
} }
Qu'est-ce qui ne fonctionne pas ? Ce script tourne bien pour moi. Le seul problème que je vois c'est le motif du split /W*s+W*/. Ce qui sépare les mots c'est une "espace" au moins (s+) avec devant ou derrière 0 ou plusieurs "non caractères" (W*).
Par défaut W vaut [^a-zA-Z0-9]. Si les fichiers que vous traitez sont en français un mot comme 'à ' passe à la trappe; il est considéré comme un séparateur.
Vous pouvez inclure les caractères français en utilisant les locales. Ajoutez avant votre boucle :
use POSIX qw/ locale_h /; setlocale LC_ALL, 'fr'; use locale;
Dans l'article <97fc9ebc.0503250440.96aa6b7@posting.google.com>,
nicolas_laurent545@hotmail.com a dit...
Vous m'avez compris. Merci. Mais seulement si j'ajoute
-- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque
mot ça ne fonctionne pas. Mes premiers pas vers la programmation..
Merci encore.
while (<>) {
my @words = split(/W*s+W*/, $_); # split
foreach my $num ( 0 .. $#words) {
{print "$words[$num], -- fichier $ARGVn"}
}
}
Qu'est-ce qui ne fonctionne pas ?
Ce script tourne bien pour moi. Le seul problème que je vois c'est le motif
du split /W*s+W*/. Ce qui sépare les mots c'est une "espace" au moins
(s+) avec devant ou derrière 0 ou plusieurs "non caractères" (W*).
Par défaut W vaut [^a-zA-Z0-9]. Si les fichiers que vous traitez sont en
français un mot comme 'à ' passe à la trappe; il est considéré comme un
séparateur.
Vous pouvez inclure les caractères français en utilisant les locales.
Ajoutez avant votre boucle :
use POSIX qw/ locale_h /;
setlocale LC_ALL, 'fr';
use locale;
Vous m'avez compris. Merci. Mais seulement si j'ajoute -- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque mot ça ne fonctionne pas. Mes premiers pas vers la programmation.. Merci encore.
while (<>) { my @words = split(/W*s+W*/, $_); # split foreach my $num ( 0 .. $#words) { {print "$words[$num], -- fichier $ARGVn"}
} }
Qu'est-ce qui ne fonctionne pas ? Ce script tourne bien pour moi. Le seul problème que je vois c'est le motif du split /W*s+W*/. Ce qui sépare les mots c'est une "espace" au moins (s+) avec devant ou derrière 0 ou plusieurs "non caractères" (W*).
Par défaut W vaut [^a-zA-Z0-9]. Si les fichiers que vous traitez sont en français un mot comme 'à ' passe à la trappe; il est considéré comme un séparateur.
Vous pouvez inclure les caractères français en utilisant les locales. Ajoutez avant votre boucle :
use POSIX qw/ locale_h /; setlocale LC_ALL, 'fr'; use locale;
(Jean-Louis MOREL) wrote in message news:<424465ad$0$19315$...
Dans l'article , a dit...
Vous m'avez compris. Merci. Mais seulement si j'ajoute -- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque mot ça ne fonctionne pas. Mes premiers pas vers la programmation.. Merci encore.
while (<>) { my @words = split(/W*s+W*/, $_); # split foreach my $num ( 0 .. $#words) { {print "$words[$num], -- fichier $ARGVn"}
} }
Qu'est-ce qui ne fonctionne pas ? Ce script tourne bien pour moi. Le seul problème que je vois c'est le motif du split /W*s+W*/. Ce qui sépare les mots c'est une "espace" au moins (s+) avec devant ou derrière 0 ou plusieurs "non caractères" (W*).
Par défaut W vaut [^a-zA-Z0-9]. Si les fichiers que vous traitez sont en français un mot comme 'à ' passe à la trappe; il est considéré comme un séparateur.
Vous pouvez inclure les caractères français en utilisant les locales. Ajoutez avant votre boucle :
use POSIX qw/ locale_h /; setlocale LC_ALL, 'fr'; use locale;
Ce script n'affiche pas le nom du fichier. si on a la phrase opera raisin cerise je voudrais afficher 1 opera -- fichier in.txt 2 raisin -- fichier in.txt 3 cerise -- fichier in.txt
Encore merci
jl_morel@bribes.org (Jean-Louis MOREL) wrote in message news:<424465ad$0$19315$8fcfb975@news.wanadoo.fr>...
Dans l'article <97fc9ebc.0503250440.96aa6b7@posting.google.com>,
nicolas_laurent545@hotmail.com a dit...
Vous m'avez compris. Merci. Mais seulement si j'ajoute
-- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque
mot ça ne fonctionne pas. Mes premiers pas vers la programmation..
Merci encore.
while (<>) {
my @words = split(/W*s+W*/, $_); # split
foreach my $num ( 0 .. $#words) {
{print "$words[$num], -- fichier $ARGVn"}
}
}
Qu'est-ce qui ne fonctionne pas ?
Ce script tourne bien pour moi. Le seul problème que je vois c'est le motif
du split /W*s+W*/. Ce qui sépare les mots c'est une "espace" au moins
(s+) avec devant ou derrière 0 ou plusieurs "non caractères" (W*).
Par défaut W vaut [^a-zA-Z0-9]. Si les fichiers que vous traitez sont en
français un mot comme 'à ' passe à la trappe; il est considéré comme un
séparateur.
Vous pouvez inclure les caractères français en utilisant les locales.
Ajoutez avant votre boucle :
use POSIX qw/ locale_h /;
setlocale LC_ALL, 'fr';
use locale;
Ce script n'affiche pas le nom du fichier.
si on a la phrase
opera raisin cerise je voudrais afficher
1 opera -- fichier in.txt
2 raisin -- fichier in.txt
3 cerise -- fichier in.txt
(Jean-Louis MOREL) wrote in message news:<424465ad$0$19315$...
Dans l'article , a dit...
Vous m'avez compris. Merci. Mais seulement si j'ajoute -- fichier $ARGVn"} à mon petit script qui donne un nombre a chaque mot ça ne fonctionne pas. Mes premiers pas vers la programmation.. Merci encore.
while (<>) { my @words = split(/W*s+W*/, $_); # split foreach my $num ( 0 .. $#words) { {print "$words[$num], -- fichier $ARGVn"}
} }
Qu'est-ce qui ne fonctionne pas ? Ce script tourne bien pour moi. Le seul problème que je vois c'est le motif du split /W*s+W*/. Ce qui sépare les mots c'est une "espace" au moins (s+) avec devant ou derrière 0 ou plusieurs "non caractères" (W*).
Par défaut W vaut [^a-zA-Z0-9]. Si les fichiers que vous traitez sont en français un mot comme 'à ' passe à la trappe; il est considéré comme un séparateur.
Vous pouvez inclure les caractères français en utilisant les locales. Ajoutez avant votre boucle :
use POSIX qw/ locale_h /; setlocale LC_ALL, 'fr'; use locale;
Ce script n'affiche pas le nom du fichier. si on a la phrase opera raisin cerise je voudrais afficher 1 opera -- fichier in.txt 2 raisin -- fichier in.txt 3 cerise -- fichier in.txt
Encore merci
jl_morel
Dans l'article , a dit...
Ce script n'affiche pas le nom du fichier. si on a la phrase opera raisin cerise je voudrais afficher 1 opera -- fichier in.txt 2 raisin -- fichier in.txt 3 cerise -- fichier in.txt
Le script contenu dans votre post précédent affiche bien le nom de fichier après chaque mot. Êtes-vous sûr d'avoir fait un couper/coller sans modification ? Que contient la ligne de commande quand vous appelez le script ?
-- J-L.M. http://www.bribes.org/perl
Dans l'article <97fc9ebc.0503251514.50d899eb@posting.google.com>,
nicolas_laurent545@hotmail.com a dit...
Ce script n'affiche pas le nom du fichier.
si on a la phrase
opera raisin cerise je voudrais afficher
1 opera -- fichier in.txt
2 raisin -- fichier in.txt
3 cerise -- fichier in.txt
Le script contenu dans votre post précédent affiche bien le nom de fichier
après chaque mot. Êtes-vous sûr d'avoir fait un couper/coller sans
modification ? Que contient la ligne de commande quand vous appelez le
script ?
Ce script n'affiche pas le nom du fichier. si on a la phrase opera raisin cerise je voudrais afficher 1 opera -- fichier in.txt 2 raisin -- fichier in.txt 3 cerise -- fichier in.txt
Le script contenu dans votre post précédent affiche bien le nom de fichier après chaque mot. Êtes-vous sûr d'avoir fait un couper/coller sans modification ? Que contient la ligne de commande quand vous appelez le script ?
-- J-L.M. http://www.bribes.org/perl
nicolas_laurent545
(Jean-Louis MOREL) wrote in message news:<424572f3$0$3114$...
Dans l'article , a dit...
Ce script n'affiche pas le nom du fichier. si on a la phrase opera raisin cerise je voudrais afficher 1 opera -- fichier in.txt 2 raisin -- fichier in.txt 3 cerise -- fichier in.txt
Le script contenu dans votre post précédent affiche bien le nom de fichier après chaque mot. Êtes-vous sûr d'avoir fait un couper/coller sans modification ? Que contient la ligne de commande quand vous appelez le script ?
Merci, j'ai réglé mon petit problème. A bientôt
jl_morel@bribes.org (Jean-Louis MOREL) wrote in message news:<424572f3$0$3114$8fcfb975@news.wanadoo.fr>...
Dans l'article <97fc9ebc.0503251514.50d899eb@posting.google.com>,
nicolas_laurent545@hotmail.com a dit...
Ce script n'affiche pas le nom du fichier.
si on a la phrase
opera raisin cerise je voudrais afficher
1 opera -- fichier in.txt
2 raisin -- fichier in.txt
3 cerise -- fichier in.txt
Le script contenu dans votre post précédent affiche bien le nom de fichier
après chaque mot. Êtes-vous sûr d'avoir fait un couper/coller sans
modification ? Que contient la ligne de commande quand vous appelez le
script ?
(Jean-Louis MOREL) wrote in message news:<424572f3$0$3114$...
Dans l'article , a dit...
Ce script n'affiche pas le nom du fichier. si on a la phrase opera raisin cerise je voudrais afficher 1 opera -- fichier in.txt 2 raisin -- fichier in.txt 3 cerise -- fichier in.txt
Le script contenu dans votre post précédent affiche bien le nom de fichier après chaque mot. Êtes-vous sûr d'avoir fait un couper/coller sans modification ? Que contient la ligne de commande quand vous appelez le script ?
