Le type de variable le plus simple en Perl est la variable scalaire. Elles peuvent contenir du texte et des nombres, et il faut noter que les nombres et les chaînes de caractères sont parfaitement interchangeables. Par exemple
$priorite = 9;
affecte 9 à la variable scalaire $priorite, mais on aura pu lui assigner
$priority = 'grand';
et encore :
$priorite = '9'; $priorite = '0009';
tout en ayant toujours acces aux fonctions arithmetiques.
En général, les noms des variables sont composés de chiffres, lettres et souligné (_), mais ils ne doivent pas commencer par un chiffre, et la variable $_ est reservée, comme nous le verrons plus tard. Par ailleurs, le Perl est sensible à la casse, donc $a et $A sont deux variables distinctes.
Le Perl utilise les même notations que le langage C :
$a = 1 + 2; # Ajoute 1 à 2, et l'affecte à $a $a = 3 - 4; # Soustrait 4 à 3, et l'affecte à $a $a = 5 * 6; # Multiplie 5 et 6, et l'affecte à $a $a = 7 / 8; # Divise 7 par 8, et affecte 0,875 à $a $a = 9 ** 10; # Eleve 9 à la dixième puissance $a = 5 % 2; # Le reste de 5 divise par deux (division euclidienne) ++$a; # Incrementation de $a, puis on retourne la valeur $a $a++; # On retourne la valeur $a puis incrementation de $a --$a; # Décrementation de $a, puis on retourne la valeur $a $a--; # On retourne la valeur $a puis décrementation de $a
pour les chaînes de caractères, le Perl nous fourni les éléments suivants :
$a = $b . $c; # Concatenation de $b et $c $a = $b x $c; # $b repété $c fois
Comment assigner une valeur à une variable :
$a = $b; # Assigne $b à $a $a += $b; # Ajoute $b à $a $a -= $b; # Soustrait $b à $a $a .= $b; # Contatene $b à $a
Il faut noter que lorsque le Perl rencontre l'expression $a = $b, il commence par faire un copie, puis l'affecte à $a. Ainsi, vous pouvez modifier $a sans modifier $b.
D'autres opérateurs peuvent être trouvé dans le manuel de Perl, section perlop. Sous UNIX, tapez : man perlop.
L'expression suivante affiche pommes et poires en utilisant la concatenation :
$a = 'pommes'; $b = 'poires'; print $a.' et '.$b;
Il serait plus agréable d'éviter la concaténation et de n'écrire que
print '$a et $b';
mais cette ligne afficherai literallement : $a et $b, ce qui n'est pas vraiment le but. A la place, on peut utiliser les apostrophes doubles " :
print "$a et $b";
Les apostrophes doubles implique une interpolation des variables. Cela rend cette ligne plus agréable. D'autres codes sont interpolés, notamment les caractères spéciaux, comme les retours chariots et les tabulations. Pour un retour chariot, le code est \n, et pour une tabulatin, c 'est \t.
L'excercice sera de réecrire le programme "bonjour le monde", ce manière à ce qu'une chaîne de caractère soit affectées à un variable, et afficher cette variable avec un retour chariot en fin de ligne. Utilisez les apostrophes doubles plutôt que l'opérateur de concaténation. Assurez vous que tout fonctionne correctement avant de continuer.