Discussion :

[yonathan]

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

Comme j'ai de nouveau des problèmes , 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 :

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
 
#!/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

Merci d'avance pour vos conseils!

Yonathan

[Philou67430]

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).

[Philou67430]

Code :

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

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

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

Code :

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

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

[yonathan]

Super Philou67430

Grace à toi j'ai un script qui tourne:

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
#!/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;

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 :

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
#!/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éééééé

Code :

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

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

[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.

[yonathan]

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

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

[Philou67430]

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

Bonne journée.