script Perl exemple commenté explication

On ferme le déscripteur D et donc le dico qu'il represente et on previen l'utilisateur si ca n'a pas pu ce faire ou qu'il y a eu une erreur.
Notez qu'on aurai pu écrire simplement:
close D; ... ou ... close D || die "erreur $!"; ,
qui remplissent aussi les même fonctions.

On préviens l'utilisateur, en affichant à l'écran, que ses lignes ont été rajouté à son dictionnaire de traduction.

Maintenant on va orienter l'utilisateur vers la sous procedure choix en ajoutant simplement le caractère & devant.
Quand on prefixe un mot du caractère & on indique à Perl que cet une sous procedure ou une fonction, et qu'il faut qu'il l'interprete avant de continuer.

Ouverture de la sous procedure choix c'est elle qui va demander à l'utilisateur si il veut continue en entrant une autre traduction, ou si il veut s'arrêté là.

Donc ici on demande par l'affichage de cette ligne à l'écran, à l'utilisateur d'entrer
un "q pour quitter un "m" pour menu (au cas ou il voudrai faire de la traduction, ou verifiez un truc)
ou "Enter" pour un autre mot. (Pensez à simplifier toujours les actes par defaut).
Oui, si il veut continue en entrant une autre traduction, un simple Enter suffira.

Voilà on recupère la reponse par l'intermediaire du clavier dans la variable $mota.
c.a.d: variable $mota vaut ce qui arrivera du Standard IN &STDIN& du clavier.

On ôte le caractère fin de ligne "\n" à la reponse, pour ne garder que ce qui nous intéresse, ici la reponse sans la validation. (voir plus haut)

Ligne 125 on passe au crible toutes les reponses possibles pour demander à Perl d'agir en consequence.
Ici on demande si la reponse est le mot "m" (pour menu) . Si oui ou vrai ou (true) on va au menu comme le desire l'utilisateur en interpretant le block qui suit.
par la condition d'egalité "eq" qui veut dire égal, donc est.
(Il y a plein d'operateurs sequence de mots ou de signes qui testerons vaut variables par rapport à ce que vous voulez, dans Perl).

Il y en à beaucoup d'autres voir ici ou encore mieux à la source de la doc française Paul Gaborit à l'enstimac (la doc la vrai pour Perl)

la fonction else sans rien, ramasse tout ce qui n'a pas été pris par if ou elsif.

invite l'utilisateur à ce pronocer par oui ou par non en affichant la phrase entre guillemets à l'écran par l'instruction print.

ligne 145 instruction chomp pour ôter le caractère de conrôle /n fin de ligne.

Cette ligne est la dernière elle signifie à Perl que le programme est terminé, elle vide les variables de leurs contenus.

lexique:

variable scalaire:

une variable liste ou variable tableau est une variable qui contient un liste d'élément, de valeur. Maintenant elle ne peut contenir qu'une valeur (si la liste n'a qu'un élément). Les variable liste appelé aussi variable tableau sont représentés par le signe @ qui les précédent.
exemple:

En régle générales _@ contient tous ses éléments _$ et donc implicitement Perl se sert de $_ qui est l'élément que l'on contrôle et @_ la liste en question. Nous pourrons donc analyser chaque element d'une liste avec :

variable de hashage:

une variable de hashage est une variable qui contient une paire d'élément sous la forme "clé" et "valeur". Ce qui est très pratique. Les clés et valeurs peuvent être de n'importe quelle nature.
Elle sont représentés par le signe % qui les précédent.
exemple: %s = ("poisson" => "sardine");
ou $s{"poisson"} = "sardine";

une assignation:

la concaténation:

Ici nous avons le signe \n (à la ligne retour chariot) puis Bonjour puis \n (à la ligne retour chariot) puis le point de concaténation entre deux chaînes entre guillemets qui lies ces deux chaînes (on s'en sert pour couper plusieurs variable pour une meilleure lisibilité, (voir plus bas). Suivie de la deuxième chaîne
commençant par le signe \t (tabulation) suivie des mots le monde suivie du signe \n à la ligne, retour chariot .
exp: "$taf$a\n$b$taf" sera plus lisible écris comme ceci "$taf" . "$a\n" . "$b" . "$taf"
On dit de deux chaînes ou fichiers ajouter l'un à l'autre qu'ils sont concatenés. Pour savoir plus .

filehandle

open (ouvre):

On doit pensez aussi à prévoir les problèmes d'ouvertures et fermetures de fichiers, donc on oriente le <STDERR> vers la fermeture du script suivi d'un message explicatif (ici "Ouverture de $dico impossible "). Pensez à refermer vos fichier, sinon il reste ouvert pendant toute votre session, créant des problèmes et même des bugs sous Windows.

or ou ||: les opérateurs or et || représente le ou , si tel chose ne peut se faire les instructions après ou sont exécutés.

le menu c'est quoi?

C'est un éventail de propositions qui va permettre à l'utilisateur d'orienter le programme suivant son choix, ce choix ce fera par le traitement de la réponse de l'utilisateur. En général le menu est traité dans une même procédure. Presque tout les programmes ont le même cheminement qui ce fait soit par un toolbar (comme dans les programmes en VB), des boutons, des menus défilant ou de manière textuelle comme ici, le principe est le même, la réponse de l'utilisateur défini l'orientation du programme. Ici on attend un caractère suivi de la touche de confirmation Enter

La sous procédures

La sous procedure est un script qui doit être lu et interprété en entier avant de retourné à la suite de votre script principal.
Les variables doivent être déclarées dans votre script principal si vous voulez quelle puissent être pris en compte dans votre script principal car à l'intérieur de la sous procedure elle sont prise en local (enfin juste pour la sous procedure).
Si vous attendez une seule valeur vous pouvez la retourner au script principal par:

if ou le test logique en Perl:

foreach

La fonction foreach sert comme sont nom l'indique à contrôler tout les éléments d'une liste ou d'un hashage, un par un, du premier au dernier. Ce contrôle ce presente sous la forme:
foreach $_(@_) {
Dans un conteste de liste l'espace d'entrée et de recherche de motifs par defaut sera $_

split

La fonction split sert à couper quelque chose est peu être utiliser de plusieurs façon. exemple:

d'abord la fonction split coupe, dissocie ce qui ce trouve en fin de parhentése (ici $ligne) par ce qui ce trouve entre les deux slash (ici la barre droite ' | ' qui s'écrit " /| " pour ne pas être interpréter pour un OU ) et place le résultàt réspéctivement dans $line et $exemple .
en français on pourrai lire cette ligne comme:
Place réspéctivement dans $line puis si il y a lieu dans $exemple le résultàt du clivage de la ligne $ligne par le caractère "|" et ceci au moyen de split.

On peut aussi ce servir de split comme ceci:
@caracteres = split($ligne);
ceci créera une liste de tout les caractère qui forme la ligne $ligne.

while
L'instruction while (tant que) est trés pratique elle sert comme sont nom l'indique à faire une ou plusieur chose (commande, ligne de code, etc...)
tant que la condition est vrai.
l'interpréteur recommencera le BLOCK de command tant que la condition sera vrai.
exemple:

Elle peut être suivie de l'instruction continu réajoutant un BLOCK à la fin, mais nous verrons ca plus loin.

Le script en entier ci dessous dans sa première version:

#!/usr/bin/perl
# ************************************************************************
#      for Linux and UNIX-Like |   made by alain Adelmar                 *
# remd: petit logiciel de traduction de mot simple anglais->français     *
# et vice verca ainsi qu'une option edit pour etoffer le dico.           *
# Cette version peut aussi traduit un mot (anglais) en tant qu'argument *
# et repond sur une ligne. expl: taf append => continuer                 *
# son fichier resource : dico_uk-fr (dico perso de quelques kilos)       *
# Ce script tourne trop bien. Pour updater les dico_uk-fr => updico.pl   *
# alain adelmar 06/Juillet/2002~03/Decembre/2003.   version: 2.02b       *
#*************************************************************************
system("clear");
# $dico = "\.\/dico_uk-fr";   # uncommant pour avoir le dico dans le rep courant
# donc entrer ici la valeur de $dico (expl: $dico = "\.\/dico_uk-fr";)
#$dico = "\/lago\/bin\/dico_uk-fr";   # placer le o vous voulez ici (attention common ailleur)
$dico = "\/home\/common\/bin\/dico_uk-fr";   # placer le o vous voulez ici
$x = "x*" x 28;
$donc = "\n\tdonc\n";

# 1er partie avec argument qui ne traite qu'un seul mot sur une ligne.
if($ARGV[0] ne "") {
if ($ARGV[0] eq "-v") {
    print "\ntaf vers: 1.05\n";
    exec 'quoi taf';
    die "$x\n";
}
elsif ($ARGV[0] =~ /^\"|\"$/) {
    s/^\"()\"$/$1/;
    $mota = $1;
}
else {
    $mota = $ARGV[0];
}
$argv = 1;
&lire_dico;
&anglais_francais;
}
else {
print "\n$x\nVersion longue de taf (sans argument = accï¿œ au menu) *\nï¿œnoter: Vous auriez pu entrer un mot a traduire en    *\nguise d'argument, pensez y la prochaine fois.          *\n                  _ alain Adelmar _                  *\n$x\n";
$argv = 0;
}
# 2eme partie la commande sans argument qui ouvre le menu.

print "Bienvenu sur le petit traducteur taf *\n aadelmar\@free.fr *\n$x\n";
MENU:
print " _ Anglais-francais(1)\n _ Francais-anlais(2)\n _ Ajouter quelques lignes au dico(3) \.\.\. reponse: ";
$trad = <STDIN>;
chomp $trad;

&lire_dico;

#menu possible de l'application**************************
if ($trad <= 1) {
print "$donc---- Anglais-francais ----\n\n";
$trad = "af";
&le_mot($mota);
&anglais_francais;
}
elsif ($trad == 2) {
print "$donc---- Francais-anglais ----\n";
$trad = "fa";
&le_mot($mota);
&francais_anglais($trad);
}
elsif ($trad >= 3) {
print "$donc---- Ajout au Dico perso ----\n";
print "Les lignes que vous ajoutez à votre dico personnel\ndoivent être écritent:\nmot_anglais,mot_français1,mot_francais2,mot_français3|exemple_angl = en_francais\n";
print "(ne laisser pas d'espace entre les mots, juste une virgule)\n";
print "on y va? (o/n)\t";
$trad = "ed";
chomp ($repond = <STDIN>);
&oui_non($repond);
&edition;
}

print "\n$x\n";
print "tchao !!!\n$x\n";

sub anglais_francais {
while ($mota ne "quitte"){
    foreach $ligne(@traduction) {
      chomp($ligne);
      # laisser comme ï¿œ car plus complet
      if ($ligne =~ /^$mota/) {
    ($line, $exemple)= split(/\|/, $ligne);
    ($angl, $fr, $fr1, $fr2, $fr3) =split(/,/, $line);
    print "$angl = $fr\t$fr1\n";
    if ($fr2 ne "") {
      print "$angl = $fr2\t$fr3\n";
    }
    if ($exemple ne "") {
      print "exemple: $exemple\n";
    }
      }
    }
    if ($argv == 0) {
      &choix;
    }
    else { die "$x\n(Pas d'autre mot pour $mota) $!"}
}
# print "tchao !!!\n";
}

sub francais_anglais($trad) {
while ($mota ne "quitte"){
    foreach $ligne(@traduction) {
      ($line, $exemple)= split(/\|/, $ligne);
      ($angl, $fr, $fr1, $fr2, $fr3) = split(/,/, $line);
      if ($fr =~ /^$mota/) {
    print "$fr = $angl\n";
      }
      if ($fr1 =~ /^$mota/) {
    print "$fr1 = $angl\n";
      }
      if ($fr2 =~ /^$mota/) {
    print "$fr2 = $angl\n";
      }
      if ($fr3 =~ /^$mota/) {
    print "$fr3 = $angl\n";
      }
    }
    &choix;
}
# print "tchao !!!\n$x\n";
}

sub edition {
while(! oui_non($repond)) {
LABEL:print "\nEntrez votre ligne\n";
    chomp ($ligne_in = <STDIN>);
    ($linei, $exemplei)= split(/\|/, $ligne_in);
    ($angli, $fri, $fr1i, $fr2i, $fr3i) =split(/,/, $linei);
    foreach $ligne(@traduction) {
      ($line, $exemple)= split(/\|/, $ligne);
      ($angl, $fr, $fr1, $fr2, $fr3) =split(/,/, $line);
      if ($angl eq $angli|| $fr eq $fri ) {
    print "cette ligne présente des similitudes avec la ligne:\n";
    print "$angl = $fr\t$fr1\t$fr2\t$fr3\t$exemple\n";
    print "voulez vous quand même entrer votre ligne dans le dico?\n";
    $resp = <STDIN>;
    chomp $resp;
    if ($resp =~ /^n/i) {
      print "elle ne sera donc pas intégré à votre dico\n";
      goto LABELMENU;
    }
      }
    }
    $ligne_in = "$ligne_in" . "\n";
    push @traduction, $ligne_in;
    print "on continu? (o/n):\t";
    chomp($repond = <STDIN>);
}
open(D, ">$dico") or die "Ouverture de dico impossible $!";
print D @traduction;
close D or die "fermeture impossible $!";
print "Vos lignes ont été rajouté au dictionnaire de traduction $dico\n";
&choix;
}

sub choix {
print "---------- (quitte) quitte, (menu) menu ou un autre mot:\n";
   $mota= <STDIN>;
   chomp $mota;
   if ($mota eq "menu") {
      goto MENU;
    }
}

sub le_mot($mota) {
print "entrer votre mot pour le traduire ou (menu) menu ou (quitte) quitter)\n";
chomp ($mota = <STDIN>);
}

sub oui_non($repond) {
my ($repond) = @_;
$repond =~ tr/A-Z/a-z/;
if ($repond =~ /^o|y/) {
    return 0;
}
elsif ($repond =~ /^n/) {
    return 1;
}
else {
    print "\a";
    print "Veuillez repondre par Oui ou par non\n";
    chomp ($repond = <STDIN>);
    &oui_non($repond);
}
}

sub lire_dico {
#lecture du dico******************************************
open DATA, "$dico" or die "Ouverture de dico impossible $!";
@traduction = <DATA>;
close DATA || die "fermeture impossible $!";
}

END;

Nouvelle version de Taf

Voici taf dans une version plus récente, elle fonctionne pour Windows comme pour Linux et gére la date en Français.
Elle est aussi plus stable. Alain Adelmar

  #!/usr/bin/perl
  # ************************************************************************
  #      for Linux and UNIX-Like |   made by alain Adelmar                 *
  # remd: petit logiciel de traduction de mot simple anglais->français     *
  # et vice verca ainsi qu'une option edit pour etoffer le dico.           *
  # Cette version peut aussi traduit un mot (anglais) en tant qu'argument  *
  # et repond sur une ligne. expl: taf append => continuer                 *
  # son fichier resource : dico_uk-fr (dico perso de quelques kilos)       *
  # Ce script tourne trop bien. Pour updater les dico_uk-fr => updico.pl   *
  # Ce script tourne sur tout environement (Linux - Windows - etc) à la    *
  # condition que dico_uk-fr soit installé dans (le répértoire courant) ou *
  # les paths suivants: /home/common/bin ou ./bin pour Linux               *
  # ou définissez votre propre path ligne 38                               *
  # Requis le module Datefr.pm sinon mettre lignes 20 et 21 en commentaires*
  # alain adelmar 06/Juillet/2002~09/Mai/2006.       version: 2.04         *
  #*************************************************************************
  #system("clear");
  
  
  #use Datefr;
  #our $opt = 3;
  #our $mod_affichage = 5;
  #our $fd = maintenant($mod_affichage);
  
  
  
  use Cwd;
  my $dir = getcwd;
  
  if ($^O=~ /[msys|cygwin|gnu]$/) {
    $gnus++;
    print "this is a real gnu OS, congratulation\n";
  }
  elsif ($ENV{"PATH"}=~ /^\//) {
    $gnus++;
    print "this is a real gnu OS, congratulation\n";
  }
  
  my @gnul = ("\\", "\/");
  my $gnup = $gnul[$gnus];
  
  # @ds = split(/$gnup/, $d);
  # $ds = pop @ds;
  $pref = '/home/common/bin/dico_uk-fr';
  if(-e $pref) {
    $dico = $pref;
  }
  else {
    $pref = "$dir$gnup" . "dico_uk-fr";
    if (-e $pref) {
      $dico = $pref;
    }
    else {
      die "erreur de path, impossible a taf de trouver dico_uk-fr\nsolution: modifierz la ligne 53 de taf ou\ncopier le au bon endroit $!";
    }
  }
  # donc entrer ici la valeur de $dico (expl: $dico = "\.\/dico_uk-fr";)
  # sinon placer le ou vous voulez en definissant un path correct dans la ligne suivante
  # $dico = "remplacer_cette_phrase_par_un_path";
  $x = "x*" x 28;
  $donc = "\n\tdonc\n";
  
  # 1er partie avec argument qui ne traite qu'un seul mot sur une ligne.
  if($ARGV[0] ne "") {
    if ($ARGV[0] eq "-v") {
      print "\ntaf vers: 1.05\n";
      exec 'quoi taf';
      die "$x\n";
    }
    elsif ($ARGV[0] =~ /^\"|\"$/) {
      s/^\"()\"$/$1/;
      $mota = $1;
    }
    else {
      $mota = $ARGV[0];
    }
    $argv = 1;
    &lire_dico;
    &anglais_francais;
  }
  else {
    print "\n$x\nVersion longue de taf (sans argument =  accés au menu) *\n";
    print "A noter: Vous auriez pu entrer un mot a traduire en    *\n";
    print "guise d'argument, pensez y la prochaine fois.          *\n";
    print "                  _  alain Adelmar  _                  *\n$x\n";
    $argv = 0;
  }
  # 2eme partie la commande sans argument qui ouvre le menu.
  
  print "Bienvenu sur le petit traducteur taf                   *\n";
  print "                    aadelmar\@free.fr                   *\n$x\n";
  MENU:
  print " _ Anglais-francais(1)\n _ Francais-anlais(2)\n _ Ajouter quelques lignes au dico(3)  \.\.\.  reponse: ";  
  $trad = ;
  chomp $trad; 
  
  &lire_dico;
  
  #menu possible de l'application**************************
  if ($trad <= 1) {   print "$donc---- Anglais-francais ----\n\n";   $trad = "af";   &le_mot($mota);   &anglais_francais; } elsif ($trad == 2) {   print "$donc---- Francais-anglais ----\n";   $trad = "fa";   &le_mot($mota);   &francais_anglais($trad); } elsif ($trad >
 = 3) {
    print "$donc---- Ajout au Dico perso ----\n";
    print "Les lignes que vous ajoutez à votre dico personnel\ndoivent être écritent:\n";
    print "mot_anglais,mot_français1,mot_francais2,mot_français3|exemple_angl = en_francais\n";
    print "(ne laisser pas d'espace entre les mots, juste une virgule)\n";
    print "on y va? (o/n)\t";
    $trad = "ed";
    chomp ($repon = );
    &oui_non($repon);
    &edition;
  }
    
  print "\n$x\n";
  print "tchao !!!\n$x\n";
  
  
  sub anglais_francais {
    while ($mota ne "quitte"){
      foreach $ligne(@traduction) {
        chomp($ligne);
        # laisser comme ca car plus complet
        if ($ligne =~ /^$mota/) {
  	($line, $exemple)= split(/\|/, $ligne);
  	($angl, $fr, $fr1, $fr2, $fr3) =split(/,/, $line);
  	print "$angl = $fr\t$fr1\n";
  	if ($fr2 ne "") {
  	  print "$angl = $fr2\t$fr3\n";
  	}
  	if ($exemple ne "") {
  	  print "exemple: $exemple\n";
  	}
        }
      }
      if ($argv == 0) {
        &choix;
      }
      else { die "$x\n(Pas d'autre mot pour $mota) $!"}
    }
    # print "tchao !!!\n";
  }
  
  sub francais_anglais($trad) {
    while ($mota ne "quitte"){
      foreach $ligne(@traduction) {
        ($line, $exemple)= split(/\|/, $ligne);
        ($angl, $fr, $fr1, $fr2, $fr3) =split(/,/, $line);
        if ($fr =~ /^$mota/) {
  	print "$fr = $angl\n";
        }
        if ($fr1 =~ /^$mota/) {
  	print "$fr1 = $angl\n"; 
        }
        if ($fr2 =~ /^$mota/) {
  	print "$fr2 = $angl\n";
        }
        if ($fr3 =~ /^$mota/) {
  	print "$fr3 = $angl\n";
        }
      }
      &choix;
    }
    # print "tchao !!!\n$x\n";
  }
  
  sub edition {
    while(! oui_non($repon)) {
    LABEL:print "\nEntrez votre ligne\n";
      chomp ($ligne_in = );
      ($linei, $exemplei)= split(/\|/, $ligne_in);
      ($angli, $fri, $fr1i, $fr2i, $fr3i) =split(/,/, $linei);
      foreach $ligne(@traduction) {
        ($line, $exemple)= split(/\|/, $ligne);
        ($angl, $fr, $fr1, $fr2, $fr3) =split(/,/, $line);
        if ($angl eq $angli|| $fr eq $fri ) {
  	print "cette ligne présente des similitudes avec la ligne:\n";
  	print "$angl = $fr\t$fr1\t$fr2\t$fr3\t$exemple\n";
  	print "voulez vous quand même entrer votre ligne dans le dico?\n";
  	$resp = ;
  	chomp $resp;
  	if ($resp =~ /^n/i) {
  	  print "elle ne sera donc pas intégré à votre dico\n";
  	  goto LABELMENU;
  	}
        }
      }
      $ligne_in = "$ligne_in" . "\n";
      push @traduction, $ligne_in;
      print "on continu? (o/n):\t";
      chomp($repon = );   
    }
    open(D, ">$dico") or die "Ouverture de dico impossible $!";
    print D @traduction;
    close D or die "fermeture impossible $!";
    print "Vos lignes ont été rajouté au dictionnaire de traduction $dico\n";
    &choix;
  }	 
  
  sub choix {
    print "---------- (quitte) quitte, (menu) menu ou un autre mot:\n";
     $mota= ;
     chomp $mota;
     if ($mota eq "menu") {
        goto MENU;
      }
   }
  
  sub le_mot($mota) {
    print "entrer votre mot pour le traduire ou (menu) menu ou (quitte) quitter)\n";
    chomp ($mota = );
  }
  
  sub oui_non($repon) {
    my ($repon) = @_;
    $repon =~ tr/A-Z/a-z/;
    if ($repon =~ /^o|y/) {
      return 0;
    }
    elsif  ($repon =~ /^n/) {
      return 1;
    }
    else {
      print "\a";
      print "Veuillez repondre par Oui ou par non\n";
      chomp ($repon = );
      &oui_non($repon);
    }
  }
  
  sub lire_dico {
    #lecture du dico******************************************
    open DATA, "$dico" or die "Ouverture de dico impossible $!";
    @traduction = ;
    close DATA || die "fermeture impossible $!";
  }
  
  END;

retour en haut de page | retour au debut du script | retour au debut de l'exo commenté | retour au debut des renvois

Exemple commenté

Se faire son propre traducteur Anglais-Français:

En gros que va faire ce programme ?

Code couleur de cet exemple:

Les rernvois

Le code