Discussion :

[morphemia]

Bonjour, je cherche un programme simple et rapide qui me crée une liste de mots indexés et qui me remplace dans un fichier ces mots par leurs indexs.

Voici un exemple : mots à indexer :

les
lapins
sont
crétins
...

avec lesquels j'aimerai avoir :

les 1
lapins 2
sont 3
crétins 4
...

pour pouvoir faire à partir de :

les lapins sont crétins

ça :

1 2 3 4 ...

Merci d'avance de votre aide.

[Dimitry.e]

Je dirai un truc comme ça, pour commencer :

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
 
open (F, "motAIndexe.txt");
my %index;
my $i = 0;
 
while ( my $l = <F> ) {
  chomp $l;
  $index {$l} = $i;
  ++$i;
}
close F;
 
open F, "file.txt";
 
while ( my $l = <F> ) {
  chomp $l;
  my @mot = split /\s+/, $l;
  foreach my $m ( @mot ) {
    print $index{ $m }, " ";
  }
  print "\n";
}
close F;

[morphemia]

Merci Dimitry mais le code ne m'affiche que le numéro du premier mot de chaque ligne. J'ai peut être oublié de préciser que mon fichier d'entrée file.txt se composait de plusieurs mots puis d'un retour à la ligne.

Merci

[morphemia]

Je voulais aussi précisé que les mots sont séparés par des virgules et non des espaces, et quand je modifie

my @mot = split /\s+/, $l;

par

my @mot = split /,/, $l;

cela ne fonctionne plus

[morphemia]

problème résolu il suffisait de remplacer my @mot = split /\s+/, $l; par my @mot = split /, /, $l;