Exemplo de operadores diversos Perl

Existem diversos operadores suportados pela linguagem Perl. Suponha que a variável a tenha 10 e a variável b tenha 20, então -

Sr. Não.	Operador e descrição
1	. O operador binário ponto (.) Concatena duas strings. Example - Se $ a = "abc", $ b = "def" então $ a. $ B dará "abcdef"
2	x O operador de repetição x retorna uma string que consiste no operando esquerdo repetido o número de vezes especificado pelo operando direito. Example - ('-' x 3) dará ---.
3	.. O operador de intervalo .. retorna uma lista de valores contados (em unidades) do valor esquerdo para o valor direito Example - (2..5) dará (2, 3, 4, 5)
4	++ O operador de incremento automático aumenta o valor inteiro em um Example - $ a ++ dará 11
5	-- O operador Auto Decrement diminui o valor inteiro em um Example - $ a-- dará 9
6	-> O operador de seta é usado principalmente para remover a referência de um método ou variável de um objeto ou nome de classe Example - $ obj -> $ a é um exemplo para acessar a variável $ a do objeto $ obj.

Exemplo

Tente o exemplo a seguir para entender todos os operadores diversos disponíveis em Perl. Copie e cole o seguinte programa Perl no arquivo test.pl e execute 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";

Quando o código acima é executado, ele produz o seguinte 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 o operador -> quando discutirmos sobre objetos e classes Perl.