perl | Funciones de string (longitud, lc, uc, índice, rindex)

String en Perl es una secuencia de caracteres encerrada entre algunos tipos de comillas. La string Perl puede contener caracteres UNICODE, ASCII y de secuencia de escape. Perl proporciona varias funciones para manipular la string como cualquier otro lenguaje de programación. Algunas funciones de string de Perl son las siguientes:

• longitud()
• lc()
• uc()
• índice()
• rindex()

length(): Esta función se utiliza para encontrar el número de caracteres en una string. Esta función devuelve la longitud de la string. A continuación se muestran los programas para ilustrar este método.

• Ejemplo 1:

  # Perl program to demonstrate  # string length function    # string my $s = "geeksforgeeks";    # using length function & # displaying length print(length($s),"\n");

  Producción:

  13
  

• Ejemplo 2:

  # Perl program to demonstrate  # string length function    # string my $s = "#$%HeLLo CSHARP &+#*";    # using length function & # displaying length print(length($s),"\n");

  Producción:

  19
  

lc(): esta función devuelve la versión en minúsculas de una string. A continuación se muestran los programas para ilustrar este método.

• Ejemplo 1:

  # Perl program to demonstrate  # string lc function    # string my $s = "GEEKSFORGEEKS\n";    # using lc function & # displaying result print("To lower case: "); print(lc($s),"\n");

  Producción:

  To lower case: geeksforgeeks
  

• Ejemplo 2:

  # Perl program to demonstrate  # string lc function    # string my $s = "GEEKS\n";    # using lc function & # displaying result print("To lower case: "); print(lc($s),"\n");

  Producción:

  To lower case: geeks
  

uc(): esta función devuelve la versión en mayúsculas de una string. A continuación se muestran los programas para ilustrar este método.

• Ejemplo 1:

  # Perl program to demonstrate  # string uc function    # string my $s = "geeksforgeeks";    # using uc function & # displaying result print("To Upper Case: "); print(uc($s),"\n");

  Producción:

  To Upper Case: GEEKSFORGEEKS
  

• Ejemplo 2:

  # Perl program to demonstrate  # string uc function    # string my $s = "GeekS\n";    # using uc function & # displaying result print("To Upper Case: "); print(uc($s),"\n");

  Producción:

  To Upper Case: GEEKS
  

index(): este método buscará una substring desde una posición específica en una string y devolverá la posición de la primera aparición de la substring en la string. Si se omite la posición, buscará desde el principio de la string. Este método tomará los dos parámetros, es decir, la string original y la substring que debe buscarse.

Ejemplo :

# Perl Program to illustrate 
# the index() function
  
# !/usr/bin/perl
use warnings;
use strict;
  
# string
my $st = "GeeksforGeeks\n";
  
# substring
my $subs = "for";
  
# using index function
my $r = index($st, $subs);
  
# displaying result
print(qq\The substring $subs found at position $r in string $st\);

Producción:

The substring for found at position 5 in string GeeksforGeeks

rindex() Esta función es igual que index() excepto que devuelve la última aparición de texto en una string. Además, se puede dar un tercer parámetro que devuelve la posición antes o en esa ubicación. Busca desde el final de la string en lugar de desde el principio. A continuación se muestran los programas para ilustrar este método.

Ejemplo 1:

# Perl Program to illustrate 
# the rindex() function
  
# !/usr/bin/perl
use warnings;
use strict;
  
# string
my $st = "GeeksforGeeks\n";
  
# substring
my $subs = "for";
  
# using rindex function
my $r = rindex($st, $subs);
  
# displaying result
print(qq\The substring $subs found at position $r in string $st\);

Producción:

The substring for found at position 5 in string GeeksforGeeks

Ejemplo 2:

# Perl Program to illustrate 
# the rindex() function with 
# three parameters
  
# !/usr/bin/perl
  
# using rindex() function 
$p = rindex("GeeksForGFGGeeksgeeksforGFG", "GFG");
  
print "Founded position of GFG $p\n";
  
# Use the first position found 
# as the offset to the next search.
# The length of the target string
# is subtracted from the offset 
# to save time.
$p = rindex("GeeksForGFGGeeksgeeksforGFG", "GFG", $p-7);
print "Founded position of GFG $p\n";

Producción:

Founded position of GFG 24
Founded position of GFG 8