Discussion :

[osiris73]

Bonsoir à tous,

Je m'interesse tout particulierement à ce language pour le traitement de fichier texte.
voici mon souci:
je recupere un fichier texte de la forme suivante

NOM, PRENOM (InitialeDuPoste) EQUIPE Mois Jour, ANNEE Ville, Etat, Nationalite

c'est le format originale avec espace et virgule presentent

voici un exemple:
BEAUX, PAUL (D) ANA Jun 4, 1924 Sorel, QC, CAN

il a comme nom BEAUX prenom PAUL, c'est un defenseur (Initiale du poste D), je voudrais avoir son age donc 2006-1924, et la nationalite, ici canadien

Je voudrais donc recuperer dans un autre fichier simplement les infos suivantes et les separer par des points virgules

NOM;PRENOM;InitialeDuPoste,Age,Pays

c'est à dire
BEAUX;PAUL;D;82;CAN

J'ai commencé à faire un bout de script mais je me melange et c'est plutot complique !! en tout cas pour moi

Merci de me donner un coup de main

[lami20j]

Salut,

si ton fichier contient que des lignes de genre

BEAUX, PAUL (D) ANA Jun 4, 1924 Sorel, QC, CAN

alors tu peux essayer ce script

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
#
use warnings;use strict;
 
open LIRE,"fichier.txt" or die "E/S : $!\n";
open ECRIRE, ">","resultat.txt" or die "E/S : $!\n";
 
while (<LIRE>) {
  my @res = split /[,() ]/,$_;
  next unless /^\w/;
  print ECRIRE (join ";",@res[0,2,4]) . ";${\((localtime)[5]+1900 - $res[10])};$res[15]";
}

Le resultat

lami20j@debian:~/trash$ cat fichier.txt
BEAUX, PAUL (D) ANA Jun 4, 1924 Sorel, QC, CAN
HANDSOME, PAUL (D) ANA Jul 14, 1934 Sorel, PR, FRA
PETIT, PAUL (D) ANA Mai 24, 1930 Sorel, QC, BEL
lami20j@debian:~/trash$ perl dvz_osiris73_020506.pl
lami20j@debian:~/trash$ cat resultat.txt
BEAUX;PAUL;D;82;CAN
HANDSOME;PAUL;D;72;FRA
PETIT;PAUL;D;76;BEL
lami20j@debian:~/trash$

sinon il faut afficher ton fichier pour voir la structure complète.

lami20j

P.S. Ce n'est qu'une façon de le faire (TMTOWTDI)

[osiris73]

merci lami20j pour ta réponse qui je dois l'avouer ma permis de comprendre plein de choses

en fait le fichier texte est mal formaté, voici un exemple, j'ai donc differentes tabulations et espace dans mon fichier

BEAUCHEMIN, FRANCOIS (D) ANA Jun 4, 1980 Sorel, QC, CAN
BRENNAN, KIP (L) ANA Aug 27, 1980 Kingston, ON, CAN
GIGUERE, JEAN-SEBASTIEN (G) ANA May 16, 1977 Montreal, QC, CAN GILLIES, TREVOR (L) ANA Jan 30, 1979 Cambridge, ON, CAN
HEDSTROM, JONATHAN (R) ANA Dec 27, 1977 Skelleftea, SWE
KONDRATIEV, MAXIM (D) ANA Jan 20, 1983 Togliatti, RUS
KONOPKA, ZENON (C) ANA Jan 2, 1981 Niagara On The Lake, ON, CAN

quand je prends l'exemple de KONOPKA Zeon il est né dans la ville Niagara On The Lake et donc plusieurs espaces, j'ai fait le script suivant (et oui désolé je suis sous W$ qui fonctionne :

#!c:\perl\bin\perl.exe -w
use warnings;use strict;

print "quel fichier source ?";
my $source = <STDIN>;

print "quel fichier destination ?";
my $destination=<STDIN>;

print "Quelle est l'annee ?";
my $annee=<STDIN>;

open (LIRE, "$source");
open (ECRIRE, ">$destination");


while (<LIRE>) {
my @res = split (/[,()\s]/,$_);

#Permet d'avoir le nombre d'element du tableau @res
my $LastElem = $#res;

#calcul de l'age par rapport à l'année rentrée précédemment
my $age=$annee-$res[10];

#ecriture dans le fichier destination
print ECRIRE "$res[0];$res[2];$res[4];$age;$res[$LastElem]\n";
}

il y a quand meme quelque chose que je ne pige pas, par exemple pourquoi $res[10] correspond à l'année dans mon fichier.

en fait j'aimerais dans la fonction split, supprimer à la fois les virgules, les parentheses les espaces ET les tabulations

quand je fais dans le script du haut
print @res j'obtiens la ligne suivante:

BEAUCHEMINFRANCOISDANAJun41980SorelQCCAN
mais quand je fais un print $res[6] qui doit correspondre à 1980, j'obtiens alors ANA

J'ai vraiment des soucis de compréhension dans ces expressions regulieres


Est-ce que quelqu'un peut m'aider SVP

merci

[lami20j]

Salut,

vite fait, je n'ai pas le temps maintenant, je verrai ce soir.

Tu peux faire autre chose.

Tu peux suprimer les espaces et les tabulations en gardant que le virgules et les paranthèses pour séparation. Dans ce cas ça sera plus simple d'utiliser les indices du tableau.

lami20j

P.S. Si tu me donnes le fichier complet ça sera mieux

[GLDavid]

osiris73

les balises codes , s'il te plait !

@++

[lami20j]

Re,

toujours vite fait.

en fait j'aimerais dans la fonction split, supprimer à la fois les virgules, les parentheses les espaces ET les tabulations

quand je fais dans le script du haut
print @res j'obtiens la ligne suivante:

Quand tu fait

Code :

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

print @tableau;

alors tu auras l'affichage des éléments du tableau comme tu l'as déjà vu sans séparation.

En revanche si tu fais

Code :

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

print "@tableau\n"

tu auras les éléments separés par un espace (\n n'as rien à avoir la dédans il est présent seulement pour passer à la nouvelle ligne après l'affichage.

Tu peux modifier le séparateur par défaut en utilisant la variable $"

Code :

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

1
2
3
4
{
  local $" = ";";
  print "@tableau\n";
}

En ce cas les éléments seront séparés par ;

lami20j

P.S. Il faut lire la documentation pour mieux comprendre