Programmation Perl/Opérateurs

Un livre de Wikibooks.
Programmation Perl
Aller à : Navigation, rechercher
Programmation Perl
Sommaire



  • Bibliothèques utiles
  • Tutoriels

Modifier ce modèle


Sections

Opérateurs numériques

Perl reprend tous les opérateurs classiques (+, -, *, /, %, sin, cos) et les étend. Il y a des raccourcis utiles à connaître pour l'affectation, comme ++, --, +=, -=, *=, %= Il existe également l'opérateur exponentiel **.

exemples

  1. my $a = 1 ;
    
  2. $a--;                   # $a vaut 0 ; est équivalent à "$a = $a - 1;"
    
  3. $a = $a + 2;    # $a vaut 2 ; est équivalent à "$a += 2;"
    
  4. $a *= 2;                # $a vaut 4 ; est équivalent à "$a = $a * 2;"
    
  5. $a -= 10;               # $a vaut -6 ; est équivalent à "$a = $a - 10;"
    
  6. $a++;                   # $a vaut -5 ; etc.
    

Il faut être attentif aux opérations avec ++ et -- . $b = $a++ affecte à $b la valeur de $a **avant** son incrémentation. $b = ++$a affecte à $b la valeur de $a **après** son incrémentation.

Opérateurs de chaînes

Les opérateurs les plus basiques qui travaillent sur des chaînes sont :

exemples

  1. my $str = "coucoux";
    
  2. say length( $str ), " ", index( $str, "uc" ); # affiche "7 2"
    
  3. chop $str;      # supprime la lettre 'x'
    
  4. say $str;       # affichera "coucou"
    
  5. my @tableau_de_caracteres = split("", $str); # contient la liste des lettres restantes
    
  6. say join(" | ", @tableau_de_caracteres);         # affiche  c | o | u | c | o | u
    

explications

  1. say length( $str ), " ", index( $str, "uc" );
    

Ici, nous appellons la fonction say pour qu'elle affiche la taille de la chaîne de caractères $str (7), un espace (" ") et l'index de la première occurrence de "uc" (2). Nous verrons plus tard comment se passent les passages de paramètres et retours de fonctions.

  1. my @tableau_de_caracteres = split("", $str);
    

La fonction split permet de séparer une chaîne de caractères suivant un motif, ici la chaîne vide : "". Ceci a pour conséquence de séparer toutes les lettres.

  1. say join(" | ", @tableau_de_caracteres);
    

Nous affichons le retour de la fonction join qui renvoie tous les éléments de @tableau_de_caracteres séparés par la chaîne " | ". Elle affiche donc "c | o | u | c | o | u".

© Copyright Wikipedia authors - The articles gathered in this document are under the GFDL licence.
http://www.gnu.org/copyleft/fdl.html