Script Perl - Informations [Résolu]

# ouverture de handle de fichier stuff
# on utilise en général les majuscules
# pour faire la différence entre une variable et un handle
# ça donne
# on utilise aussi un test d'ouverture de handle
# open STUF, $stuff or die "E/S $stuff : $!\n";

open stuff, $stuff;

# ici on commence la lecture de handle
# le handle c'est la connexion entre le programme et le fichier
# la lecture se fait ligne par ligne

while (<stuff>) {
# On filtre le fichier d'entrée en ne traitant que les lignes comprenant la chaine de caractères entre // ci-dessous
        if (/list 124/) {
                s/^.*permitted//;
# print "\nLigne1 $_";
# good s/\([0-9\/]*\)//g;
# s/(\([0-9\/]*\))(.*?)(\([0-9\/]*\))/ PS\1 \2 PR\3/g;
                s/ ->//g; # ici on supprime tout espace suivi d'un tiret suivi d'n signe plus grand
                          # et ça sur tout la ligne
                          # traitement effectuer sur chaque ligne
# print "\nLigne2 $_";
  s/,//g;  # on supprime tous les virgules
  s/\(0\/0\)//g; # on supprime toute sous chaîne
                 # ( suivi de 0 suivi de / suivi de 0 suivi de )
                 # ce qui donne (0/0)
# print "\nLigne3 $_";
  s/([a-z]+).*?([\.\(\)0-9]+).*?([\.\(\)0-9]+).*?([0-9]+)/\1 \2 \3 \4/;
  # la partie regex
  #=========================================================================
  # [a-z] - clase de caractères qui peut reconnaître un caractère de a à z
  # + - quantificateur qui veut dire une fois ou n'importe combien de fois
  # . - n'importe quel caractère
  # *? - quantificateur paresseux, qui veut dire 0 fois, une fois, ou tant
  # que tu peux jusqu'à 1ère caractère suivant le motif
  #
  # exemple pour comprendre
  #------------------------------------
  # $ echo je ne sais pas si tu sais le langage perl | perl -ne '/(.*sais)/;print "$1\n"'
  # je ne sais pas si tu sais
  # $ echo je ne sais pas si tu sais le langage perl | perl -ne '/(.*?sais)/;print "$1\n"'
  # je ne sais
  # -----------------------------------
  # fin exemple
  # [\.\(\)0-9]
  # classe de caractère qui peut reconnaître un point, une paranthèse ouvrante ou fermante
  # le chiffre de 0 à 9
  # + on l'a déjà vu
  # .*? on l'a déjà vu
  # [0-9] - classe de caractères qui reconnaît un chiffre de 0 à 9
  # =========================================================================
  # la partie remplacement
  # -----------------------------------------
  # les paranthèses dans les regex ont le rôle de capturer
  # leur numérotation se fait en commençant de la partie gauche
  # et c'est la paranthèse ouvrante qui est comptée
  # \1 c'est la capture numéro 1
  # \2 c'est la capture numéro 2
  # etc.
  #
  # Exemple
  #
  # $ perl -e '$var="123 azerty (100)";$var=~s/([0-9]+)\s*([a-z]+)\s*(\([0-9]+\))/\3 \2 \1/;print "$var\n";'
  # (100) azerty 123
  # mais je préfère $1, $2 et $3
  # $ perl -e '$var="123 azerty (100)";$var=~s/([0-9]+)\s*([a-z]+)\s*(\([0-9]+\))/$3 $2 $1/;print "$var\n";'
  # (100) azerty 123