Discussion :

[mimilou]

Bonjour,
g un fichier texte avec des nombres.
j'aimerai compter combien de fois apparait chaque nombre.

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
 
for($i=0; $i<100; $i ++)
   {
       nb_occurence=0;
       foreach $ligne (<fichier>)
           {
                if ($ligne =~ /(\S*) fois/)  #(\S*) recupere le nombre à compter
                       {
                           $nombre=$1;
                           if ($nombre == $i)
                                 {  
                                       $nb_occurence++;
                                 }
                      }
             }
      print "$nb_occurence avec $i fois\n";
   }

le probleme est qu'il fait bien la 1ere boucle mais apres il n'arrive plus à compter. $i s'incrémente correctement mais sa nouvelle valeur n'est pas prise en compte dans ma boucle foreach.
vous avez une idée?
merci!

[severine]

Salut,

Un truc du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my @tab;
for (my $i=0;$i<100;$i++) {$tab[$i]=0;}
while (my $ligne=<fichier>)
{
  if ($ligne =~ /(\S*) fois/)
  {
    my $nombre=$1;
    $tab[$nombre]++;
  }
}

et dans chaque élément du tableau, tu as son occurence. $j est apparu $tab[$j] fois.

Attention, code non testé......
Dis moi ce que ca fait!

Severine

[severine]

tiens, je viens de m'apercevoir que tu as oublié le $ devant le premier nb_occurence.
je sais pas si c'est ca mais déjà, ca fera une faute en moins .

[mimilou]

non c pas ça la faute, c que g mal recopié mon code...oups...

[severine]

T'as bien déclaré la variable $nombre avec un my $nombre?
Bon, ca ne doit pas être ca le problème mais avec de la magie dès fois...
T'as essayé mon code? ca donne quoi?
A quoi ressemble ton fichier <fichier>? tu peux en mettre un extrait, stp.

[mimilou]

mon fichier texte est du style:

Albert
3 fois
Henri
2 fois
Jerome
1 fois
Paul
2 fois

et je voudrai combien de fois apparait "1 fois", "2 fois"... pour faire des statistiques.
G essayé ton code mais il m'affiche un tableau avec des valeurs qui ne correspondent à rien, en tout cas pas à ce que je veux...

[severine]

Je t'avoue que j'ai un peu de mal à faire du code, si je ne peux pas le tester, et là, en ce moment, je ne peux pas!
je voulais que mon code donne: tab[0]=0; tab[1]=1; tab[2]=2; tab[3]=1 avec le fichier que tu as mis au-dessus. et il donne quoi, stp?

Severine

[mimilou]

g bien un tableau de valeurs mais je ne sais pas à quoi correspondent ces valeurs

[mimilou]

g bien un tableau de valeurs mais je ne sais pas à quoi correspondent ces valeurs

[severine]

Ce sont quoi ces valeurs, stp???
avec le fichier que tu m'as mis au-dessus par exemple.
Juste pour que je vois où ca se plante

Severine

[mimilou]

ah non excuse moi, c que j'avais des cases du tableau vide et je ne comprenais pas. mais ton code est bon!
autant pour moi!
merci :-)

[Arioch]

mon fichier texte est du style:

Albert
3 fois
Henri
2 fois
Jerome
1 fois
Paul
2 fois

et je voudrai combien de fois apparait "1 fois", "2 fois"... pour faire des statistiques.
G essayé ton code mais il m'affiche un tableau avec des valeurs qui ne correspondent à rien, en tout cas pas à ce que je veux...

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
my %Compteur;
open(FICHIER, "mon_fichier") or die("cannot open file : $!\n");
while(<FICHIER>)
{
    if (/(\d)+ fois/)
    {
        ++$Compteur{$1};
    }
}
close(FICHIER);
 
foreach (sort {$a <=> $b} keys(%Compteur))
{
    print "$_ fois apparait : $Compteur{$_} fois\n";
}

Pas essayé non plus mais je pense ne pas m'être gourré

[mimilou]

merci merci!!!! ça marche!!
youpi!

[mimilou]

juste un détail, quand tu fais ça, le 0 n'est pas pris en compte.
y a t_il un moyen de compter égalmeent les "0 fois"?

[Arioch]

juste un détail, quand tu fais ça, le 0 n'est pas pris en compte.
y a t_il un moyen de compter égalmeent les "0 fois"?

ah oui, très juste

Heu, Jedai, t'es passé où encore ?

[Jedai]

Le code de Severine marche très bien (même si personnellement, j'aurais plutôt mis "\d" au lieu de "\S" pour des raisons de lisibilité), je viens de tester.
Ton code ne marche pas, parce que tu lis une fois ton fichier en entier pour 0 avec ton foreach (qui par ailleurs est une mauvaise idée, ici tu dois utiliser un while, sinon tu perd tout l'intérêt de lire ligne par ligne), et ensuite tu essaie de faire pareil avec 1, mais tu es déjà à la fin du fichier, et il ne reste plus de lignes à lire, donc ton foreach ne marche plus... Il faut remettre ton fichier au début, ainsi :

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
 
for(my $i=0; $i<100; $i++)
{
    my $nb_occurence=0;
    my $ligne;
    while( $ligne = <fichier>)
        {
            if ($ligne =~ /\b$i fois/) 
            {
                $nb_occurence++;
            }
        }
    print "$nb_occurence avec $i fois\n";
    seek fichier, 0, 0;
}

Ce code marche aussi, j'ai vérifié, mais il est moins bon que le code de Severine car il parcourt n fois (n étant le maximum qu'on expecte de trouver dans le fichier) le fichier, là où le code de Severine ne parcourt qu'une seule fois le fichier.

EDIT : @Arioch > Dans ton code, tu utilises un hash ce qui est probablement une mauvaise idée ici bien que ça soit la technique standard, vu que les clés sont des nombres à faible valeur, par ailleurs, tu devrais utiliser "(\d+)" plutôt que "(\d)+" parce que sinon tu risques d'avoir des problème avec les nombres à plusieurs chiffres...
Je proposerais bien ceci, à partir du code de Severine :

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
22
23
24
 
#! /usr/bin/perl
 
use strict;
use warnings;
 
my @tab;
open FICHIER, '<', "le_fichier" or die "N'arrive pas à ouvrir le_fichier : $!";
 
while (my $ligne=<FICHIER>)
{
    if ($ligne =~ /(\d+) fois/)
    {
        $tab[$1]++;
    }
} 
 
close FICHIER;
 
foreach my $i ( 0..$#tab )
{
    if ( defined $tab[$i] ) { print "$tab[$i] avec $i fois\n" }
    else { print "0 avec $i fois\n" }
}

L'avantage de ce code, c'est qu'il imprimera "0 avec 0 fois" mais qu'il s'arrêtera au nombre le plus grand se trouvant dans le fichier. Maintenant, ça dépend de ce que tu veux faire.
--
Jedaï