Equivalence de Perl en Awk

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 ;)