Add explanation about $_ and fix typos

This commit is contained in:
Matteo Taroli 2015-10-08 12:38:19 +02:00
parent 18058567c4
commit b723d3284b

View File

@ -5,6 +5,7 @@ language: perl
filename: learnperl-fr.pl filename: learnperl-fr.pl
contributors: contributors:
- ["Korjavin Ivan", "http://github.com/korjavin"] - ["Korjavin Ivan", "http://github.com/korjavin"]
- ["Matteo Taroli", "http://www.matteotaroli.be"]
translators: translators:
- ["Matteo Taroli", "http://www.matteotaroli.be"] - ["Matteo Taroli", "http://www.matteotaroli.be"]
lang: fr-fr lang: fr-fr
@ -27,7 +28,7 @@ est autant adapté à un prototypage rapide qu'à des projets de grande envergur
### Perl a trois types principaux de variables: $scalaire, @tableau and %hash ### Perl a trois types principaux de variables: $scalaire, @tableau and %hash
## Scalaires ## Scalaires
# Un scalaire représente une valeure unique : # Un scalaire représente une valeur unique :
my $animal = "chameau"; my $animal = "chameau";
my $reponse = 42; my $reponse = 42;
@ -99,8 +100,15 @@ for my $element (@elements) {
# implicitement # implicitement
# La variable de contexte scalaire $_ est utilisée par défaut dans différentes
# situations, comme par exemple dans la boucle foreach ou en argument par défaut
# de la plupart des fonctions pour en simplifier l'écriture.
# Dans l'exemple suivant, $_ prends successivement la valeur de
# chaque élément de la liste.
for (@elements) { for (@elements) {
print; print; # affiche le contenu de $_
} }
@ -116,11 +124,11 @@ if ($a =~ /foo/) { ... } # vrai si $a contient "foo"
# Simple substitution # Simple substitution
$a =~ s/foo/bar/; # remplace foo par bar dans $a $a =~ s/foo/bar/; # remplace le premier foo par bar dans $a
$a =~ s/foo/bar/g; # remplace TOUTES LES INSTANCES de foo par bar dans $a $a =~ s/foo/bar/g; # remplace TOUTES LES INSTANCES de foo par bar dans $a
#### Fichiers and E/S #### Fichiers et E/S
# Vous pouvez ouvrir un fichier pour y écrire ou pour le lire avec la fonction "open()". # Vous pouvez ouvrir un fichier pour y écrire ou pour le lire avec la fonction "open()".
@ -136,9 +144,9 @@ open(my $log, ">>", "my.log") or die "Impossible d'ouvrir my.log: $!";
my $ligne = <$in> my $ligne = <$in>
my $lignes = <$in> my $lignes = <$in>
#### Ecrire des sous-programmes #### Ecrire des fonctions
# Ecrire des sous-programmes est facile : # Ecrire des fonctions est facile :
sub logger { sub logger {
my $logmessage = shift; my $logmessage = shift;
@ -148,9 +156,9 @@ sub logger {
print $logfile $logmessage; print $logfile $logmessage;
} }
# Maintenant, nous pouvons utiliser le sous-programme comme n'importe quelle fonction intégrée : # Maintenant, nous pouvons utiliser cette fonction comme n'importe quelle fonction intégrée :
logger("On a un sous-programme de logging!!"); logger("On a une fonction de logging!!");
``` ```
#### Utiliser des modules Perl #### Utiliser des modules Perl