Bonjour, je souhaite extraire les verbes et les noms du Lexique380 dans deux fichiers nommées Verbes.txt et Noms.txt sans doublon dans chacun des fichiers résultants.
Je suis sur Gnu/linux,
 
Quelle serait votre solution s'il vous plaît.
 
Merci.

j'ai fait ceci, mais ça marche pas parce que le ficher source est mal formaté apparement :
 

awk '{ print($3, $4=VER) }' Lexique380-utf8.txt > Verbes-utf8.txt 
awk '{ print($3, $4=NOM) }' Lexique380-utf8.txt > Noms-utf8.txt

Et il vient d'ou ton fichier Lexique380-utf8.txt?
A+,

 
De Lexique380.txt que 'jai converti de iso-8859.
 
Quant à lexique380.txt tu peux le trouver sur le site de Lexique.org Dans Bases et Scripts
 
 
Bonjour Gilou bise et meilleurs voeux.

J'en suis là, mais j'obtiens encore un résultat erroné.

Ce script perl devrait coller pour NOM (rediriger sa sortie vers Noms.txt)

#!/usr/bin/perl
use v5.10.1; # pour interpréter ~~ comme l'opérateur de smart match
# code propre
use strict;
use warnings;
use autodie;
 
open my $fh, "Lexique380.txt";
foreach (<$fh> ) {
  print if (split(/\t/, $_))[3] ~~ /NOM/;
}
close $fh;

 
A+,

Salut Jovalise,
 
Je travaille avec cette "base". Perso, j'ai traité le fichier txt pour le transformer en BD Mysql (un champ en BD = une colonne dans le fichier). Pour les traitements, après, c'est beaucoup plus simple
 
Si tu veux, je peux t'envoyer par MP mon code php qui convertit le fichier txt en BD...

Merci Gilou, Avec Awk après j'ai extrait la la colonne qui m'intéresse, et un bout de code Ada pur supprimer les doublon, et c'est fait.
 
Merci rufo, Je connais rien à php encore, alors, pour le moment j'en ferait rien, mais merci.  

Pour avoir la colonne qui t'intéressait, il suffisait de remplacer  
print if (split(/\t/, $_))[3] ~~ /NOM/;
par  
my @fields = split /\t/;
print $fields[j] if $fields[3] ~~ /NOM/;
ou j est le numéro de la colonne (numérotation débutant à 0)
A+,

 
 
Avec ce code, j'ai tous les mots sur une seule ligne.    
Merci Gilou. A+

Ben faut modifier en fonction de ses besoins:
 
print "$fields[j]\n" if $fields[3] ~~ /NOM/;  
 
A+,

 
Ah Ok, merci Gilou, je connais toujours pas du tout Perl, saufe que pour affichier un saut de ligne il faut un \n dans la chaîne, et encore, je suis pas certain.
Mais dès que j'aurait besoin d'un truc, je me débrouillerait tous seul, sauf si vraiment j'y arrive pas.
On peux encore causer quant même ?
Ou on ne s'exprime plus qu'au travers des programme que nous produisons ?

Sans pb!
Mais j'ai été quasiment absent de mon écran les 3/4 de le journées d'ou ma faible réactivité.
A+,

Merci encore Gilou ton code est plus efficace que mon awk.

Bonjour,
 
Je voudrais réutiliser le code perl de Gilou.
 
Ceci dis ça passe pas :  
 

#!/usr/bin/perl                                                                 
use v5.10.1; # pour interpréter ~~ comme l'opérateur de smart match             
# code propre                                                                   
 
use strict;
use warnings;
use autodie;
 
open my $fh, "Lexique381.txt";
foreach (<$fh> ) {
    my @fields = split /\t/;
    print "$fields[j]\n" if $fields[3] ~~ /NOM/;
}
close $fh;

 
Comment refaire compiler ou interpréter ce code ?
 
Svp, ... Merci

j'ai lancé ça si non :  

cat Lexique381.txt | grep NOM | awk '{ print($1) }' > Noms.txt

Je sais pas comment je pouvais être plus clair:
ou j est le numéro de la colonne (numérotation débutant à 0)
Bref si tu veux la 137e colonne de ton tableau, tu remplaces j par 136 dans le code.
Pour que ça soit lisible, vaudra mieux faire print "$fields[j] " ou print "$fields[j]\n" d'ailleurs.
 
 
A+,

ok gilou, sorry. thank's.