La función rindex() en Perl funciona de manera similar a la función index() , excepto que devuelve la posición de la última aparición de la substring (o patrón) en la string (o texto). Si se especifica la posición, devuelve la última aparición en esa posición o antes.
Sintaxis:
# Busca pat en el texto de la posición dada
rindex texto, patrón, posición# Busca pat en text
rindex text, patternParámetros:
- texto: String en la que se buscará la substring.
- pat: Substring a buscar.
- índice: índice de inicio (establecido por el usuario o toma cero por defecto).
Devuelve:
-1 en caso de error, de lo contrario, la posición de la última aparición.
Ejemplo 1:
#!/usr/bin/perl -w
$pos = rindex("WelcomeToGeeksforGeeksWorld", "eks");
print "Position of eks: $pos\n";
# Use the first position found as the offset
# to the next search.
# Note that the length of the target string is
# subtracted from the offset to save time.
$pos = rindex("WelcomeToGeeksforGeeksWorld",
"eks", $pos - 3 );
print "Position of eks: $pos\n";
Producción:
Position of eks: 19 Position of eks: 11
Ejemplo 2:
#!/usr/bin/perl -w
$pos = rindex("GeeksforGeeks", "eks");
print "Position of eek: $pos\n";
# Use the first position found as the
# offset to the next search.
# Note that the length of the target string is
# subtracted from the offset to save time.
$pos = rindex("GeeksForGeeks", "eks", $pos - 2);
print "Position of eek: $pos\n";
Producción:
Position of eek: 10 Position of eek: 2