Script Perl pour compter une occurence dans une ligne

Bonjour à tous

J'avais posté sur ce forum il y a quelques jours, et j'avais eu un super coup de main de la part d'un forumeur :ccool:

Comme j'ai de nouveau des problèmes :cry:, je reviens vers vous

J'ai un fichier texte de ce style là:

salut_toi comment_vas pas_mal et_toi_mon bichon_des_alpes
alalala_je ne_sais_plus quoi_mettre
comme_texte
pfff

En gros un texte de n lignes, avec y mots dans chaque ligne (les mots sont séparés par des espaces).

J'ai besoin de savoir combien il y a de mots dans chaque ligne. Ca donnerait:

4
3
2
1

Le nouveau fichier peut écraser l'ancien, ce n'est pas un soucis.
J'ai un début de code, qui donne ca:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/env perl   my $fileName=$ARGV[0];   open(FILE,$fileName) || die("Cannot Open File"); my(@fcont) = <FILE>; close FILE;   open(FOUT,">$fileName") || die("Cannot Open File"); foreach $line (@fcont) { $line =~ grep -c \/t; $compte=$line + 1 print FOUT $compte; } close FOUT;

---

En fait je me dit qu'il suffit de compter le nombre d'espace de chaque ligne + 1 pour avoir le nombre de mot par ligne.

Mais je ne suis pas sur du tout que mon script soit bon (surtout le grep). Si vous avez des conseils, n'hésitez pas.

D'ailleurs j'ai une autre petite question:

idéalement mon fichier de sortie serait comme ca:
OTU1 4
OTU2 3
OTU3 2
OTU4 1

Mais la je ne sais pas du tout comment aborder le probleme :cry:

Merci d'avance pour vos conseils!

Yonathan

Tu n'as pas besoin de la fonction grep, une simple expression régulière utilisée dans un contexte de liste dont on converti le résultat en scalaire est suffisante (goatse operator).

Code:

---

1 2	$compte =()= $line =~ /\s/g; $compte++;

---

Une autre manière est de séparer la ligne en mots, et de les compter:

Code:

---

1 2	@line = split /\s/, $line; $count = @line;

---

Super Philou67430

Grace à toi j'ai un script qui tourne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/env perl   my $fileName=$ARGV[0];   open(FILE,$fileName) || die("Cannot Open File"); my(@fcont) = <FILE>; close FILE;   open(FOUT,">$fileName") || die("Cannot Open File"); foreach $line (@fcont) { $compte =()= $line =~ /\s/g; $compte++; print FOUT $compte; print FOUT "\n" } close FOUT;

---

:ccool::ccool::ccool:


Par contre je n'arrive pas à implémenter ma fonction "bonus" à savoir obtenir pour chaque ligne "OTUx" avec x le numéro de la ligne...
J'ai essayé ca:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

#!/usr/bin/env perl   my $fileName=$ARGV[0];   open(FILE,$fileName) || die("Cannot Open File"); my(@fcont) = <FILE>; close FILE;   open(FOUT,">$fileName") || die("Cannot Open File"); foreach $line (@fcont) { $i = 0; $i++; $compte =()= $line =~ /\s/g; $compte++; print FOUT "OTU$i"; print FOUT " "; print FOUT $compte; print FOUT "\n"; } close FOUT;

---

Mais ca me donne "OTU1" à chaque ligne. Manifestement il y a un soucis au niveau de mon "$i= 0 ; $i++;


EDIT: j'ai trouvéééééé :D:D:D:D

Code:

---

1 2	$j = $i++; print FOUT "OTU$i"

---

Tu ne dois initialiser ta variable $i qu'en dehors de la boucle.
Par ailleurs, tu peux aussi utiliser la variable $. qui contient le numéro de ligne du fichier courant.

Si ta question correspondait à un exercice d'école, il est fort probable que la solution de l'usage de l'opérateur goatse ne soit pas la réponse attendue.

Citation:

---

Envoyé par Philou67430

Tu ne dois initialiser ta variable $i qu'en dehors de la boucle.
Par ailleurs, tu peux aussi utiliser la variable $. qui contient le numéro de ligne du fichier courant.

Si ta question correspondait à un exercice d'école, il est fort probable que la solution de l'usage de l'opérateur goatse ne soit pas la réponse attendue.

---

Oui j'ai compris qu'il fallait initialiser ma variable hors de ma boucle :)

Par contre ce n'est pas un exercice d'école, c'est un "bricolage" pour faciliter ma vie (traiter 600 fichiers à la main aurait été un peu long), donc tous les moyens sont bons 8-)

Ca fait 2 fois que tu m'apportes une aide précieuse :ccool: et je t'en remercie énormément!!!

Perl est une perle pour ce bricoler ce genre de petits outils :ccool:

Bonne journée.