perl | y Operador

El operador y 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: y/ListaBúsqueda/ListaReemplazo/

Devuelve: la string traducida

Ejemplo 1: Este ejemplo usa el operador y para traducir de minúsculas a mayúsculas.

#!/usr/bin/perl
   
# Initialising some strings
$string1 = 'gfg is a computer science portal';
$string2 = 'geeksforgeeks';
  
# Calling to y function
$string1 =~ y/a-z/A-Z/;
$string2 =~ y/a-z/A-Z/;
  
# Getting translated strings
print "$string1\n";
print "$string2\n";

Producción:

GFG IS A COMPUTER SCIENCE PORTAL
GEEKSFORGEEKS

Ejemplo 2: Este ejemplo usa el operador y para traducir de mayúsculas a minúsculas.

#!/usr/bin/perl
   
# Initialising some strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';
  
# Calling to y function
$string1 =~ y/A-Z/a-z/;
$string2 =~ y/A-Z/a-z/;
  
# Getting translated strings
print "$string1\n";
print "$string2\n";

Producción :

gfg is a computer science portal
geeksforgeeks

Nota: Este operador y realiza la tarea de la función lc() y la función uc() , además de traducir los caracteres de entrada a forma numérica, etc.

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

#!/usr/bin/perl
   
# Initialising some strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';
  
# Calling to y function
$string1 =~ y/A-Z/0-9/;
$string2 =~ y/A-Z/0-9/;
  
# Getting translated strings
print "$string1\n";
print "$string2\n";

Producción :

656 89 0 29999949 9284924 999909
6449959964499