Perl

occurrenc d'un mot dans un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : occurrenc d'un mot dans un fichier

rim_enis

j'aime ENIS

Bonjour,

mon objectif est de calculer l'occurrence d'un ensemble des mots ( se trouvant dans un fichier keywords.txt ) dans un fichier nommé search.txt'
voici le code que j'ai essayé
[perl]
#!usr/bin/perl
use strict;
use warnings;

#Lexical variable for filehandle is preferred, and always error check opens.
open my $keywords, '<:utf8', 'keywords.txt' or die "Can't open keywords: $!";

open my($file), '<', 'search.txt';

my %words; # hachage de compteurs

while (my $word = <$keywords> ) {
chomp $word;
next if $word =~ /^\s*$/;
$words{$word} = 0;
}
close $keywords;

my %freq;
#Afficher le fichier
while( my $line = <$file> ) {
chomp($line) ;

foreach my $word (split(' ', $line)) {
$freq{$word}++;

}
}
#Afficher les mots en ordre
foreach my $word (sort keys %freq) {
print "$word $freq{$word}\n";
}
[/perl]

mais le code calcule la fréquence d'apparition des mots se trouvant dans search.txt' alors comment je peux faire un match pour calculer la fréquence d'apparition des mots se trouvant dans keywords.txt
search.txt ==>
red green yellow blue red
red red yellow
yellow green blue blue green
green red

keywords.txt ==>
red
green
blue
Merci beaucoup d'avance

Publicité

gilou

Modérateur
Modzilla

J'ai pas testé mais je ferais
1)
while (my $word = <$keywords> ) {
chomp $word;
next if $word =~ /^\s*$/;
$words{$word} = 1;
}
2)
$freq{$word}++ if $words{$word};

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

rim_enis

j'aime ENIS

Bonjour,
Merci beaucoup pour votre réponse,

j'ai modifié le code mais le résultat est faux , pouvez vous m'aider à résoudre le problème

Code :

#!usr/bin/perl
use strict;
use warnings;
open my $keywords,    '<:utf8', 'keywords.txt' or die "Can't open keywords: $!";
open my $search_file, '<:utf8', 'search.txt'   or die "Can't open search file: $!";
open my($file), '<', 'search.txt';
my %words;   # hachage de compteurs
while (my $word = <$keywords> ) {
    chomp $word;
next if $word =~ /^\s*$/;  
    $words{$word} = 1;
}  
close $keywords;
my %freq;
while( my $word = <$file> ) {
$freq{$word}++ if $words{$word};  
 }
foreach my $word ( keys %words) {
print "$word $freq{$word}\n";
}

rim_enis

j'aime ENIS

Bonjour,
Merci beaucoup pour votre réponse,

j'ai modifié le code mais le résultat est faux , pouvez vous m'aider à résoudre le problème

Code :

#!usr/bin/perl
use strict;
use warnings;
open my $keywords,    '<:utf8', 'keywords.txt' or die "Can't open keywords: $!";
open my $search_file, '<:utf8', 'search.txt'   or die "Can't open search file: $!";
open my($file), '<', 'search.txt';
my %words;   # hachage de compteurs
while (my $word = <$keywords> ) {
    chomp $word;
next if $word =~ /^\s*$/;  
    $words{$word} = 1;
}  
close $keywords;
my %freq;
while( my $word = <$file> ) {
$freq{$word}++ if $words{$word};  
 }
foreach my $word ( keys %words) {
print "$word $freq{$word}\n";
}

rim_enis

j'aime ENIS

Bonjour,
Merci beaucoup pour votre réponse,

j'ai modifié le code

Code :

#!usr/bin/perl
use strict;
use warnings;
 
#Lexical variable for filehandle is preferred, and always error check opens.
open my $keywords,    '<:utf8', 'keywords.txt' or die "Can't open keywords: $!";
open my $search_file, '<:utf8', 'search.txt'   or die "Can't open search file: $!";
open my($file), '<', 'search.txt';
my %words;   # hachage de compteurs
while (my $word = <$keywords> ) {
    chomp $word;
next if $word =~ /^\s*$/; 
    $words{$word} = 0;
}
close $keywords;
my %freq;
while( my $line = <$file> ) {
foreach my $word (split(' ', $line)) {
         $freq{$word}++;
     }
}
foreach my $word (sort keys %freq) {
print "$word $freq{$word}\n";
}

j'ai ce message : Use of uninitialized value in concatenation (.) lorsque un mot dans keywords.txt n'existe pas dans search.txt

gilou

Modérateur
Modzilla

Citation :

$words{$word} = 0;

C'est sur que si tu appliques pas ce que je dis...

Moi, j'ai pris ce code, j'ai reporté ce que j'ai dit:

Code :

#!usr/bin/perl
use strict;
use warnings;
 
#Lexical variable for filehandle is preferred, and always error check opens.
open my $keywords,    '<:utf8', 'keywords.txt' or die "Can't open keywords: $!";
open my $search_file, '<:utf8', 'search.txt'   or die "Can't open search file: $!";
open my($file), '<', 'search.txt';
my %words;   # hachage de compteurs
while (my $word = <$keywords> ) {
    $word=~s/^\s+|\s+$//; # changé, parce que tu as plus d'un blanc a la suite de tes mots
    next if $word =~ /^$/; 
    $words{$word} = 1;
}
close $keywords;
my %freq;
while( my $line = <$file> ) {
    foreach my $word (split(' ', $line)) {
    $freq{$word}++ if $words{$word};  ;
    }
}
foreach my $word (sort keys %freq) {
    print "$word $freq{$word}\n";
}

et ça marche.

C:\perl>perl enis.pl
blue 3
green 4
red 5

A+,

Message édité par gilou le 04-12-2018 à 16:42:39

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

occurrenc d'un mot dans un fichier

Sujets relatifs
Fichier JSON to string	Notification sur smartphone quand un fichier sur PC est modifié
Lecteur audio et fichier acentué	[DEBUTANT] Condition pour ouvrir un fichier ne fonctionne pas
Tester si la chaine de caractère mène a un dossier ou un fichier	VBA : Autoriser modifications à l'ouverture d'un fichier
paramétre dans un fichier de conf	Macro copier-coller d'un fichier vers un autre
Déplacer plusieurs fichier en ajoutant la date	Lecture d'un fichier sur pyzo
Plus de sujets relatifs à : occurrenc d'un mot dans un fichier

Page générée en 0.070 secondes