perl | Operador tr

El operador tr en Perl traduce todos los caracteres de SearchList a los caracteres correspondientes de ReplacementList.
Aquí, la lista de búsqueda son los caracteres de entrada dados que se convertirán en los caracteres correspondientes dados en la lista de reemplazo.

Sintaxis: tr/ListaBúsqueda/ListaReemplazo/

Retorno: número de caracteres reemplazados o eliminados

Ejemplo 1: este ejemplo utiliza el operador tr para traducir de minúsculas a mayúsculas.

#!/usr/bin/perl
   
# Initializing the strings
$string1 = 'gfg is a computer science portal';
$string2 = 'geeksforgeeks';
  
# Calling tr function
$string1 =~ tr/a-z/A-Z/;
$string2 =~ tr/a-z/A/;
  
# Printing the translated strings
print "$string1\n";
print "$string2\n";

Producción:

GFG IS A COMPUTER SCIENCE PORTAL
AAAAAAAAAAAAA

Ejemplo 2: este ejemplo utiliza el operador tr para traducir de mayúsculas a minúsculas.

#!/usr/bin/perl
   
# Initializing the strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';
  
# Calling tr function
$string1 =~ tr/A-Z/a-z/;
$string2 =~ tr/A-Z/p/;
  
# Printing translated strings
print "$string1\n";
print "$string2\n";

Producción :

gfg is a computer science portal
ppppppppppppp

Ejemplo 3: Este ejemplo usa el operador tr para traducir de mayúsculas a forma numérica.

#!/usr/bin/perl
   
# Initializing the strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';
  
# Calling tr function
$string1 =~ tr/A-Z/0-9/;
$string2 =~ tr/A-Z/5/;
  
# Printing translated strings
print "$string1\n";
print "$string2\n";

Producción :

656 89 0 29999949 9284924 999909
5555555555555

Uso del operador ‘s’:
El operador ‘s’ se usa al final del operador ‘tr’ para detectar los caracteres duplicados en la string dada y reemplazarlos con el carácter especificado.

Ejemplo:

#!/usr/bin/perl
   
# Initializing the strings
$string1 = 'geeksforgeeks';
$string2 = 'geeksforgeeks';
  
# Calling tr function
# without appending 's' to 'tr' operator
$string1 =~ tr/ee/e/;
  
# Appending 's' to 'tr' operator
$string2 =~ tr/ee/e/s;
  
# Printing translated strings
print "$string1\n";
print "$string2\n";

Producción :

geeksforgeeks
geksforgeks

En el código anterior, se puede ver que cuando se agrega ‘s’ al final del operador ‘tr’, se reemplaza la «e» repetida, es decir, «ee» con una sola «e».

Uso del operador ‘c’:
El operador ‘c’ se usa al final del operador ‘tr’ para detectar el carácter de espacio (‘ ‘) en la string dada y reemplazarlo con el carácter especificado.

Ejemplo:

#!/usr/bin/perl
   
# Initializing the strings
$string1 = 'gfg is a computer science portal';
$string2 = 'gfg is a computer science portal';
  
# Calling tr function
# without appending 'c' to 'tr' operator
$string1 =~ tr/a-z/_/;
  
# Appending 'c' to 'tr' operator
$string2 =~ tr/a-z/_/c;
  
# Printing translated strings
print "$string1\n";
print "$string2\n";

Producción :

___ __ _ ________ _______ ______
gfg_is_a_computer_science_portal

En el código anterior, se puede ver que entre cada palabra se usa el signo de subrayado («_») que se hace con la adición de ‘c’.

Nota 1: este operador tr hace la tarea de la función lc() y la función uc() , así como también traduce los caracteres de entrada a forma numérica, etc.

Nota 2: este operador tr es ligeramente diferente del operador y porque el operador y no usa la adición de «c» o «s» al operador, pero el operador tr sí lo hace.