Discussion :

[blacksnake]

Salut à vous,

Je cherche à traduire cette ligne de Perl en Awk.

Code :

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

$fields[1] =~ /(Id Ulysse : \d{7,8})\s+(Id Eds : (\d{16}|1-\w{5}|\d{9}))/;

Cette commande recherche les lignes contenant les motifs :
- "Id Ulysse : " suivis de 7 ou 8 chiffres puis d'un ou plusieurs espace
- "Id Eds : " suivis de 16 chiffres ou de la chaine 1- suivie de 5 caractères ou de la suite de 9 chiffres

Le tout reformaté :

Code :

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

my $line   = sprintf("%s %s %s\n", "Master Id : ".$fields[0].";".$2);

Merci à vous

Post envoyé le 03/01/08 mais tjr pas de réponse ...

[Jedai]

Pourquoi voudrais-tu aller de Perl au Awk ? Aller d'un outil moins puissant à un plus puissant je peux comprendre, mais dans l'autre sens...

Par ailleurs vu la simplicité de la regexp impliquée, je n'ai vraiment pas envie de t'aider : apprends les regexp un minimum, ça te sera utile dans énormément d'occasions.

--
Jedaï