Uso della funzione perl substr
Sintassi
La sintassi della funzione substr () è menzionata di seguito.
substr (mainstring, startindex, [, lunghezza [, sostituzione]])
- mainstring: il primo argomento viene utilizzato per archiviare la stringa principale da cui verrà tagliata la sottostringa.
- StartIndex: il secondo argomento viene utilizzato per impostare la posizione iniziale per il taglio o la sostituzione della sottostringa. Il valore di questo argomento può essere positivo o negativo.
- Lunghezza: il terzo argomento viene utilizzato per impostare la lunghezza della sottostringa. Il valore di questo argomento può essere positivo o negativo e questo argomento è facoltativo.
- Replacestring: il quarto argomento viene utilizzato per sostituire la parte particolare della stringa principale in base ai valori del secondo e del terzo argomenti. Questo argomento è facoltativo.
- La sottostringa della particolare lunghezza viene restituita dalla funzione substr ().
Diversi usi della funzione substr () sono stati mostrati nella prossima parte di questo tutorial.
Esempio-1: utilizzo della funzione substr () senza argomento opzionale
Crea un file Perl con il seguente codice che mostra l'uso della funzione substr () senza alcun argomento opzionale. Il valore dell'indice di partenza positivo è stato utilizzato nella funzione del primo sub (). Quindi, il valore dell'indice inizierà a contare dal valore 0 e dal lato sinistro. Il valore dell'indice iniziale negativo è stato utilizzato nella funzione del secondo sub (). Quindi, il valore dell'indice inizierà a contare da 1 valore e dal lato destro. L'output di entrambe le funzioni substr () è stata stampata in seguito.
#!/usr/bin/perl
#Definire il valore della stringa
$ string = "Welcome to LinuxHint";
#Print il valore originale
Stampa "La stringa originale è: \ n", $ string, "\ n";
#Cut la sottostringa utilizzando il valore dell'indice positivo
$ substring = substr ($ string, 11);
stampare "il valore di sottostringa utilizzando l'indice positivo: \ n", $ substring, "\ n";
#Cut la sottostringa utilizzando il valore dell'indice negativo
$ substring = substr ($ string, -9);
stampare "il valore di sottostringa utilizzando l'indice negativo: \ n", $ substring, "\ n";
Produzione:
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.
Esempio-2: uso di substr () con il primo argomento opzionale
Crea un file Perl con il seguente codice che mostra l'uso della funzione substr () con il primo argomento opzionale. Il valore dell'indice iniziale positivo è stato utilizzato nelle funzioni di substr () qui. Il valore di lunghezza positivo è stato utilizzato nella prima funzione substr (). Quindi, il valore di lunghezza verrà conteggiato da sinistra. Il valore di lunghezza negativa è stato utilizzato nella funzione del secondo sub (). Quindi, il valore di lunghezza verrà conteggiato da destra. Il valore di lunghezza inizia a contare da 1 per valori sia positivi che negativi. L'output di entrambe le funzioni substr () è stata stampata in seguito.
#!/usr/bin/perl
#Definire il valore della stringa
$ string = "Welcome to LinuxHint";
#Print il valore originale
Stampa "La stringa originale è: \ n", $ string, "\ n";
#Cut la sottostringa utilizzando i valori di indice e lunghezza positivi
$ substring = substr ($ string, 3, 4);
stampare "il valore di sottostringa utilizzando l'indice positivo: \ n", $ substring, "\ n";
#Cut la sottostringa usando l'indice positivo e i valori di lunghezza negativa
$ substring = substr ($ string, 11, -4);
stampare "il valore di sottostringa utilizzando l'indice negativo: \ n", $ substring, "\ n";
Produzione:
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.
Esempio-3: Uso della funzione substr () con tutti gli argomenti opzionali
Crea un file Perl con il seguente codice che mostra l'uso della funzione substr () con tutti gli argomenti opzionali. La funzione substr () è stata utilizzata tre volte qui. Nella prima funzione substr (), la sottostringa corrispondente verrà sostituita dalla stringa "PHP."Nella seconda funzione substr (), la sottostringa corrispondente verrà sostituita dalla stringa," Script."Nella terza funzione substr (), la sottostringa corrispondente verrà sostituita dalla stringa vuota. L'output di tutte le funzioni substr () è stata stampata in seguito.
#!/usr/bin/perl
#Definire il valore della stringa
$ string = "Impara la programmazione Perl";
#Print il valore originale
Stampa "La stringa originale è: \ n", $ string, "\ n";
#Resposizione della sottostringa utilizzando indice positivo e valore di lunghezza
$ sostituzione1 = substr ($ string, 6, 4, "php");
Stampa "La stringa sostituita utilizzando l'indice e la lunghezza positivi: \ n", $ string, "\ n";
#Resposizione della sottostringa utilizzando l'indice negativo e il valore di lunghezza positivo
$ sostituzione1 = substr ($ string, -11, 11, "script");
stampare "la stringa sostituita usando l'indice negativo e la lunghezza positiva: \ n", $ string, "\ n";
#Resposizione della sottostringa utilizzando indice positivo e valore di lunghezza negativa
$ sostituzione1 = substr ($ string, 0, -10, "");
stampare "la stringa sostituita usando l'indice positivo e la lunghezza negativa: \ n", $ string, "\ n";
Produzione:
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.
Esempio-4: estrarre valore da una stringa usando la funzione substr ()
Crea un file Perl con il seguente codice che taglierà il valore della data e il valore di tempo separatamente da una stringa. Qui, la variabile $ DateTime è stata utilizzata per archiviare un valore stringa che contiene una data e un valore di tempo particolare. La prima funzione substr () è stata utilizzata per recuperare il valore della data e la seconda funzione substr () è stata utilizzata per recuperare il valore temporale dalla variabile $ datetime. L'output di tutte le funzioni substr () è stata stampata in seguito.
#!/usr/bin/perl
#Definire il valore della stringa
$ datetime = "17-06-22 05:30 am";
#Print il valore originale
Stampa "La stringa originale è: \ n", $ datetime, "\ n";
#Cut il valore della data dalla stringa
$ date = substr ($ datetime, 0, 8);
#Print il valore della data
Stampa "Il valore della data è: \ n", $ data, "\ n";
#Cut il valore temporale dalla stringa
$ time = substr ($ datetime, 9);
#Print il valore temporale
Stampa "Il valore del tempo è: \ n", $ time, "\ n";
Produzione:
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.
Conclusione
Gli usi della funzione substr () con diversi tipi di valori degli argomenti sono stati mostrati in questo tutorial utilizzando più esempi. Spero che questo tutorial aiuti gli utenti perl a conoscere lo scopo di utilizzare la funzione substr () in Perl.