Exemple d'opérateurs divers Perl

Il existe divers opérateurs suivants pris en charge par le langage Perl. Supposons que la variable a vaut 10 et la variable b vaut 20 alors -

N ° Sr.	Opérateur et description
1	. L'opérateur binaire dot (.) Concatène deux chaînes. Example - Si $ a = "abc", $ b = "def" alors $ a. $ B donnera "abcdef"
2	x L'opérateur de répétition x renvoie une chaîne constituée de l'opérande gauche répété le nombre de fois spécifié par l'opérande droit. Example - ('-' x 3) donnera ---.
3	.. L'opérateur de plage .. renvoie une liste de valeurs comptant (par unités) de la valeur de gauche à la valeur de droite Example - (2..5) donnera (2, 3, 4, 5)
4	++ L'opérateur d'incrémentation automatique augmente la valeur entière de un Example - $ a ++ donnera 11
5	-- L'opérateur de décrémentation automatique diminue la valeur entière de un Example - $ a-- donnera 9
6	-> L'opérateur de flèche est principalement utilisé pour déréférencer une méthode ou une variable d'un objet ou d'un nom de classe Example - $ obj -> $ a est un exemple pour accéder à la variable $ a depuis l'objet $ obj.

Exemple

Essayez l'exemple suivant pour comprendre tous les opérateurs divers disponibles en Perl. Copiez et collez le programme Perl suivant dans le fichier test.pl et exécutez ce programme.

#!/usr/local/bin/perl

$a = "abc";
$b = "def";

print "Value of \$a  = $a and value of \$b = $b\n";
 
$c = $a . $b;
print "Value of \$a . \$b = $c\n";

$c = "-" x 3;
print "Value of \"-\" x 3 = $c\n";

@c = (2..5);
print "Value of (2..5) = @c\n";

$a = 10;
$b = 15;
print "Value of \$a  = $a and value of \$b = $b\n";

$a++;
$c = $a ;
print "Value of \$a after \$a++ = $c\n";

$b--;
$c = $b ;
print "Value of \$b after \$b-- = $c\n";

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

Value of $a = abc and value of $b = def
Value of $a . $b = abcdef
Value of "-" x 3 = ---
Value of (2..5) = 2 3 4 5
Value of $a = 10 and value of $b = 15
Value of $a after $a++ = 11
Value of $b after $b-- = 14

Nous expliquerons l'opérateur -> lorsque nous discuterons des objets et des classes Perl.