Uso de la función PERL Substr

“La función PERL SubStr () se usa principalmente para cortar la parte particular de la cadena principal. Esta función también se puede utilizar para reemplazar la parte de la cadena principal con otra cadena. Se han mostrado diferentes formas de cortar o cortar y reemplazar una parte particular de la cadena en este tutorial utilizando el script Perl."

Sintaxis
La sintaxis de la función subStr () se menciona a continuación.

subStr (Mainstring, StartIndex, [, longitud [, reemplazar]])

• Maintring: el primer argumento se utiliza para almacenar la cadena principal a partir de la cual se cortará la subcadena.
• StartIndex: el segundo argumento se usa para establecer la posición inicial para cortar o reemplazar la subconocente. El valor de este argumento puede ser positivo o negativo.
• Longitud: el tercer argumento se usa para establecer la longitud de la subcadena. El valor de este argumento puede ser positivo o negativo, y este argumento es opcional.
• Reemplazar: el cuarto argumento se utiliza para reemplazar la parte particular de la cadena principal en función de los valores del segundo y el tercer argumentos. Este argumento es opcional.
• La subcandadora de la longitud particular es devuelta por la función subStr ().

Se han mostrado diferentes usos de la función subStr () en la siguiente parte de este tutorial.

Ejemplo-1: uso de la función subStr () sin argumento opcional

Cree un archivo PERL con el siguiente código que muestra el uso de la función subStr () sin ningún argumento opcional. El valor de índice inicial positivo se ha utilizado en la primera función subStr (). Entonces, el valor del índice comenzará a contar desde el valor 0 y el lado izquierdo. El valor de índice inicial negativo se ha utilizado en la segunda función subStr (). Entonces, el valor del índice comenzará a contar desde 1 valor y el lado derecho. La salida de ambas funciones substr () se ha imprimido más tarde.

#!/usr/bin/perl
#Define el valor de la cadena
$ String = "Bienvenido a Linuxhint";
#Imprima el valor orginal
imprima "La cadena original es: \ n", $ string, "\ n";
#Corta la subcadena utilizando un valor de índice positivo
$ subString = subStr ($ string, 11);
Imprima "El valor de la subcadena utilizando el índice positivo: \ n", $ subcadena, "\ n";
#Corta la subcadena utilizando el valor de índice negativo
$ subString = subStr ($ string, -9);
Imprima "El valor de la subcadena usando el índice negativo: \ n", $ subcadena, "\ n";

Producción:
La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-2: Uso de la función subStr () con el primer argumento opcional

Cree un archivo PERL con el siguiente código que muestra el uso de la función subStr () con el primer argumento opcional. El valor de índice inicial positivo se ha utilizado en ambas funciones subStr () aquí. El valor de longitud positiva se ha utilizado en la primera función subStr (). Entonces, el valor de longitud se contará desde la izquierda. El valor de longitud negativa se ha utilizado en la segunda función subStr (). Entonces, el valor de longitud se contará desde la derecha. El valor de longitud comienza a contar desde 1 para valores positivos y negativos. La salida de ambas funciones substr () se ha imprimido más tarde.

#!/usr/bin/perl
#Define el valor de la cadena
$ String = "Bienvenido a Linuxhint";
#Imprima el valor orginal
imprima "La cadena original es: \ n", $ string, "\ n";
#Corta la subcadena utilizando valores positivos de índice y longitud
$ subString = subStr ($ string, 3, 4);
Imprima "El valor de la subcadena utilizando el índice positivo: \ n", $ subcadena, "\ n";
#Cut la subcadena utilizando valores de índice positivo y longitud negativa
$ subString = subStr ($ string, 11, -4);
Imprima "El valor de la subcadena usando el índice negativo: \ n", $ subcadena, "\ n";

Producción:
La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-3: Uso de la función subStr () con todos los argumentos opcionales

Cree un archivo Perl con el siguiente código que muestra el uso de la función Substr () con todos los argumentos opcionales. La función subStr () se ha utilizado tres veces aquí. En la primera función subStr (), la subcadena coincidente será reemplazada por la cadena, "PHP."En la segunda función subStr (), la subcadena coincidente será reemplazada por la cadena," Script."En la tercera función substr (), la subcadena coincidente será reemplazada por la cadena vacía. La salida de todas las funciones subStr () se ha imprimido más tarde.

#!/usr/bin/perl
#Define el valor de la cadena
$ String = "Learn Perl Programming";
#Imprima el valor orginal
imprima "La cadena original es: \ n", $ string, "\ n";
#Replacia de la subcadena utilizando el índice positivo y el valor de longitud
$ reemplazar1 = subStr ($ string, 6, 4, "php");
Imprima "la cadena reemplazada usando el índice y la longitud positivos: \ n", $ string, "\ n";
#Replacia de la subcadena utilizando el índice negativo y el valor de longitud positiva
$ reemplazar1 = subStr ($ string, -11, 11, "script");
Imprima "la cadena reemplazada usando índice negativo y longitud positiva: \ n", $ string, "\ n";
#Replacia de la subcadena utilizando un índice positivo y un valor de longitud negativa
$ reemplazar1 = subStr ($ string, 0, -10, "");
Imprima "la cadena reemplazada usando índice positivo y longitud negativa: \ n", $ string, "\ n";

Producción:
La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-4: extraer valor de una cadena usando la función subStr ()

Cree un archivo Perl con el siguiente código que reducirá el valor de la fecha y el valor de tiempo por separado de una cadena. Aquí, la variable $ dateTime se ha utilizado para almacenar un valor de cadena que contiene una fecha y un valor de tiempo particular. La primera función subStr () se ha utilizado para recuperar el valor de fecha, y la segunda función subStr () se ha utilizado para recuperar el valor de tiempo de la variable $ dateTime. La salida de todas las funciones subStr () se ha imprimido más tarde.

#!/usr/bin/perl
#Define el valor de la cadena
$ datetime = "17-06-22 05:30 am";
#Imprima el valor orginal
imprimir "La cadena original es: \ n", $ DateTime, "\ n";
#Cut el valor de fecha de la cadena
$ date = subStr ($ DateTime, 0, 8);
#Imprima el valor de la fecha
imprimir "El valor de la fecha es: \ n", $ fecha, "\ n";
#Corta el valor de tiempo de la cadena
$ TIME = SUBSTR ($ DateTime, 9);
#Imprima el valor de tiempo
imprimir "El valor de tiempo es: \ n", $ time, "\ n";

Producción:
La siguiente salida aparecerá después de ejecutar el código anterior.

Conclusión

Los usos de la función subStr () con diferentes tipos de valores de argumentos se han mostrado en este tutorial mediante el uso de múltiples ejemplos. Espero que este tutorial ayude a los usuarios de Perl a conocer el propósito de usar la función subStr () en Perl.