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