La función lcfirst() en Perl devuelve la string VAR o $_ después de convertir el primer carácter a minúsculas.
Sintaxis: lcfirst(VAR)
Parámetro:
VAR: Oración cuyo primer carácter se va a convertir a minúsculasDevuelve: la string VAR o $_ con el primer carácter en minúsculas
Ejemplo 1:
#!/usr/bin/perl # Original String containing both # lower and upper case letters $orignal_string = "GEEkS FoR geEkS"; # Converting the First character to Lower case $changed_string = lcfirst($orignal_string); # Printing the original String print "Original String : $orignal_string\n"; # Printing the Changed String print "Changed String : $changed_string\n";
Producción:
Original String : GEEkS FoR geEkS Changed String : gEEkS FoR geEkS
Ejemplo 2:
#!/usr/bin/perl # Original String containing # lower and upper case letters # as well as numerics $orignal_string = "G33kS F0R g3EkS"; # Converting the first character to Lower case $changed_string = lcfirst($orignal_string); # Printing the original String print "Original String : $orignal_string\n"; # Printing the Changed String print "Changed String : $changed_string\n";
Producción:
Original String : G33kS F0R g3EkS Changed String : g33kS F0R g3EkS