Ejemplo de varios operadores de Perl

Existen los siguientes operadores diversos compatibles con el lenguaje Perl. Suponga que la variable a tiene 10 y la variable b tiene 20, entonces -

No Señor.	Operador y descripción
1	. El punto de operador binario (.) Concatena dos cadenas. Example - Si $ a = "abc", $ b = "def" entonces $ a. $ B dará "abcdef"
2	x El operador de repetición x devuelve una cadena que consta del operando izquierdo repetido el número de veces especificado por el operando derecho. Example - ('-' x 3) dará ---.
3	.. El operador de rango ... devuelve una lista de valores contando (de a uno) desde el valor de la izquierda al valor de la derecha Example - (2..5) dará (2, 3, 4, 5)
4	++ El operador de incremento automático aumenta el valor entero en uno Example - $ a ++ dará 11
5	-- El operador Auto Decrement reduce el valor entero en uno Example - $ a-- dará 9
6	-> El operador de flecha se usa principalmente para desreferenciar un método o variable de un objeto o un nombre de clase Example - $ obj -> $ a es un ejemplo para acceder a la variable $ a desde el objeto $ obj.

Ejemplo

Pruebe el siguiente ejemplo para comprender todos los diversos operadores disponibles en Perl. Copie y pegue el siguiente programa Perl en el archivo test.pl y ejecute este programa.

#!/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";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

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

Explicaremos -> operator cuando hablaremos sobre las clases y objetos de Perl.

↰ Previous page