Discussion :

[phlam]

Bonjour,

Après avoir consulté les pages du forum, je n'ai pas trouver de réponses à mon problème. Je précise que je suis complétement novice en PERL.
Mon problème : j'ai une ressource linguistique de type dictionnaire qui est mal etiqueté et je voudrais la réétiqueter dans un nouveau format.

Je pars de la structure :
chaine de caractères, etiquette1,etiquette2,etiquette3
(exemple : bateau, nom,singulier,locomotion)

et je voudrais arriver à :
chaine de caractères,etiquette1
chaine de caractères,etiquette2
chaine de caractères,etiquette3

exemple : bateau,nom
bateau,singulier
bateau,locomotion

Je voudrais donc que la premiere chaine de caractère soit reprise autant de fois qu'il y a d'étiquettes et sur des lignes différentes.
Sur ce que j'ai vu sur les forums, c'est surtout la fonction SPLIT que je devrais utiliser mais n'étant pas du tout à même de programmer, je suis perdu.
Si vous pouviez m'indiquer la procédure ou me renvoyer sur une page web expliquant la manip ce serait super.
Merci d'avance
P.

[Jasmine80]

Comme tu l'as dit, tu peux utiliser un split :

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
#!/usr/bin/perl -w
 
use strict;
 
 
my $string = 'bateau,nom,singulier,locomotion';
 
# spécifique
my ($data, $tag1, $tag2, $tag3 ) = split /,/, $string;
print $data." : ".$tag1."\n";
print $data." : ".$tag2."\n";
print $data." : ".$tag3."\n\n";
 
# général
my @tab = split /,/, $string;
 
for my $i (1..$#tab){
	print $tab[0]." : ".$tab[$i]."\n";
}

Premier cas tu récupères tes 4 éléments dans 4 variables différentes
Second cas, tu les récupères dans un tableau et tu fais une boucle du second (indice 1) au dernier élément ($#tab).

Regarde la documentation de perldoc

[phlam]

Bonsoir,
Merci de cette réponse.
J'ai testé, ça fonctionne parfaitement.
P.

[Mr6]

Salut,

Le même en ligne de commande :

Code :

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

perl -F, -lane 'print "$F[0] $F[$_]" for 1..$#F' mon_fichier.txt

@+
Mr6

[phlam]

Rebonjour,

J'ai réutilisé le script présenté plus haut. compte tenu que mes entrées de dictionnaires sont différentes à chaque fois donc que mon $data diffère, je pensais pouvoir utiliser une regex. J'ai ainsi modifié :
my $string = /\w (,)\[A-Z].*(,);[A-Z].*(,)[A-Z].*(,);

dans mon idée, le \w (,) correspond à mon entrée et les [A-Z].*(,) correspondent aux etiquettes qui, elles aussi, changent selon mon entrée de dictionnaire.

Ca ne fonctionne pas et j'ai une erreur pour chacune de mes $tag...

Si vous pouviez m'expliquer où ça cloche pour que je comprenne la logique ce serait l'idéal...
Merci d'avance,
Ph.

[Jasmine80]

[A-Z] ne comprend que les majuscules, tu dois utiliser //i afin de rendre la recherche insensible à la casse.

Tu dois mettre entre parenthèses ce que tu veux récupérer dans les variables et non les virgules.

par exemple :

Code :

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

1
2
3
my $string = 'bateau,nom,singulier,locomotion';
 
my ($data, $tag1, $tag2, $tag3 ) = $string =~ m/(\w+),([A-Z]+),([A-Z]+),([A-Z]+)/i;

[phlam]

Bonjour Mr6
Merci pour ta réponse mais cela me donne l'erreur suivante :
Can't find string terminator "'" anywhere before EOF at -e line 1.
.....

[Mr6]

Code :

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

perl -F, -lane "print \"$F[0] $F[$_]\" for 1..$#F" mon_fichier.txt

version windows

@+
Mr6

[phlam]

Super, ça fonctionne parfaitement.
Encore merci
Ph.