Equivalence de Perl en Awk

[blacksnake]

Salut à vous,

Je cherche à traduire cette ligne de Perl en Awk.

Code :

$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 :

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

Merci à vous