perl | función substr()

substr() en Perl devuelve una substring de la string pasada a la función a partir de un índice dado hasta la longitud especificada. Esta función devuelve por defecto la parte restante de la string a partir del índice dado si no se especifica la longitud. También se puede pasar una string de reemplazo a la función substr() si desea reemplazar esa parte de la string con alguna otra substring.
Este valor de índice y longitud también puede ser negativo, lo que cambia la dirección del conteo de índice en la string.
Por ejemplo, si se pasa un índice negativo, la substring se devolverá desde el extremo derecho de la string y si pasamos la longitud negativa, la función dejará la mayor parte de los caracteres del extremo posterior de la string.

Sintaxis: substr(string, índice, longitud, reemplazo)
Parámetros:

• string: string de la que se va a extraer la substring
• índice: índice inicial de la substring
• longitud: longitud de la substring
• reemplazo: substring de reemplazo (si corresponde)

Devuelve: la substring de la longitud requerida

Nota: Los parámetros ‘longitud’ y ‘reemplazo’ se pueden omitir.

Ejemplo 1

#!/usr/bin/perl
  
# String to be passed
$string = "GeeksForGeeks";
  
# Calling substr() to find string 
# without passing length
$sub_string1 = substr($string, 4);
  
# Printing the substring
print "Substring 1 : $sub_string1\n";
  
# Calling substr() to find the 
# substring of a fixed length
$sub_string2 = substr($string, 4, 5);
  
# Printing the substring
print "Substring 2 : $sub_string2 ";

Producción :

Substring 1 : sForGeeks
Substring 2 : sForG 

Ejemplo 2

#!/usr/bin/perl
  
# String to be passed
$string = "GeeksForGeeks";
  
# Calling substr() to find string 
# by passing negative index
$sub_string1 = substr($string, -4);
  
# Printing the substring
print "Substring 1 : $sub_string1\n";
  
# Calling substr() to find the 
# substring by passing negative length
$sub_string2 = substr($string, 4, -2);
  
# Printing the substring
print "Substring 2 : $sub_string2 ";

Producción :

Substring 1 : eeks
Substring 2 : sForGee