Discussion :

[PadawanInPerl]

Bonjour à tous,

Je suis plus que débutant et j'ai très peu de connaissances techniques...

voici mes messages d'erreur :

Global symbol "$test" requires explicit package name at C:\DOCUME~1\ANNEMA~1\Bureau\Perl\Base.pl line 8. Global symbol "$mot" requires explicit package name at C:\DOCUME~1\ANNEMA~1\Bureau\Perl\Base.pl line 18. Execution of C:\DOCUME~1\ANNEMA~1\Bureau\Perl\Base.pl aborted due to compilation errors.

Quelqu'un pourrait il me guider vers la Force ?

[Jedai]

Tu n'as pas déclaré ces variables correctement, et tu utilises le pragma "strict" qui rend cette déclaration obligatoire (très bonne chose par ailleurs, surtout ne désactive pas "strict" pour te débarasser de cette erreur).

Tu peux déclarer une variable avec my() ou our() selon que tu veux créer une variable lexicale (visible uniquement dans le bloc où elle est déclarée) ou globale (visible partout). Je te conseille très vivement de ne créer que des variables lexicales pour l'instant, tu n'auras probablement pas besoin des globales tout de suite.

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict; use warnings;
 
my $var = 10;
 
print $var + 10, "\n";
 
__END__

--
Jedaï

[PadawanInPerl]

Hello,

Merci Jedaï, voici ce que j'essaye d'executer

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/local/bin/perl -w
 
use strict; use warnings;
 
open (FILE,"<$test.txt") or die"open: $!";
my($line,@words,$word,%total);
while( defined( $line = <FILE> ) )
{
#split coupe chaque phrase en mot
        @words = split( /\W+/, $line );
        foreach $word (@words)
 
     {
#tr met chaque mot en majuscule
 
        $mot =~tr/A-Z/a-z/;
        $total{$word}++;
      }
}
close(FILE);
foreach $word (sort keys %total)
{
     print "$word a été rencontré $total{$word} fois.\n";
}

Je teste ce code que j'ai pris d'un cours... j'ai essayé de faire ce que tu m'a dis mais j'ai de nouveaux messages ! donc je t'envoie le code au cas ou tu puisses y trouver qq choses....

Merci

[PadawanInPerl]

Ayé !!

$mot a été traduit à la place de $word !! bizarre mais maintenant tout est affiché sans erreurs !!

Merci

[Jedai]

$mot a été traduit à la place de $word !! bizarre mais maintenant tout est affiché sans erreurs !!

Je ne vois pas en quoi c'est "bizarre" : si tu n'utilises pas le bon identifiant, Perl ne lit pas dans ton esprit l'identifiant que tu souhaitais employer...

Par ailleurs ton tr/// mets le mot en minuscules, pas en majuscules, contrairement au commentaire. Cette opération est d'ailleurs déjà prise en charge directement par la fonction lc() :

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
25
26
27
#!/usr/local/bin/perl
use strict; use warnings;
 
my $test = "truc";
 
open my($file), '<', "$test.txt"
  or die "open $test.txt: $!";
 
my %total;
while( my $line = <$file> ) {
 
  # découpe la ligne en mots
  my @words = split /\W+/, $line;
 
  for my $word (@words) {
    # incrémente le nombre d'occurence d'un mot (sans considérer la casse)
    $total{lc $word}++;
  }
}
 
close $file;
 
for my $word (sort keys %total) {
     print "$word a été rencontré $total{$word} fois.\n";
}
 
__END__

Si je le faisais pour moi-même :

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
use strict; use warnings; use 5.10.0;
 
my $filename = shift;
my %total;
 
open my($file), '<', $filename
  or die "open $filename: $!\n";
while( <$file> ) {
  $total{lc $_}++ for (split m/\W+/);
}
close $file;
 
say "$_ a été rencontré $total{$_} fois." for (sort keys %total);
 
__END__

--
Jedaï