Utilisation de la fonction Perl substr
Syntaxe
La syntaxe de la fonction substr () est mentionnée ci-dessous.
substr (mainstring, startIndex, [, length [, remplacering]]))
- Mainstring: le premier argument est utilisé pour stocker la chaîne principale à partir de laquelle la sous-chaîne sera coupée.
- startIndex: le deuxième argument est utilisé pour définir la position de départ pour couper ou remplacer la substrat. La valeur de cet argument peut être positive ou négative.
- Longueur: le troisième argument est utilisé pour définir la longueur de la sous-chaîne. La valeur de cet argument peut être positive ou négative, et cet argument est facultatif.
- Remplacestring: le quatrième argument est utilisé pour remplacer la partie particulière de la chaîne principale en fonction des valeurs des deuxième et troisième arguments. Cet argument est facultatif.
- La sous-chaîne de la longueur particulière est renvoyée par la fonction substr ().
Différentes utilisations de la fonction substr () ont été présentées dans la partie suivante de ce tutoriel.
Exemple-1: utilisation de la fonction substr () sans argument facultatif
Créez un fichier perl avec le code suivant qui affiche l'utilisation de la fonction substr () sans aucun argument facultatif. La valeur d'indice de départ positive a été utilisée dans la première fonction substr (). Ainsi, la valeur d'index commencera à compter à partir de la valeur 0 et du côté gauche. La valeur d'indice de départ négative a été utilisée dans la deuxième fonction substr (). Ainsi, la valeur de l'index commencera à compter à partir de 1 valeur et du côté droit. La sortie des deux fonctions substr () a été imprimée plus tard.
#!/ usr / bin / perl
#Define la valeur de chaîne
$ string = "Bienvenue à LinuxHint";
# Printent la valeur originale
imprimer "La chaîne d'origine est: \ n", $ string, "\ n";
#Cut la sous-chaîne en utilisant une valeur d'index positive
$ substring = substr ($ string, 11);
Imprimez "La valeur de sous-chaîne en utilisant un index positif: \ n", $ substring, "\ n";
#Cut la sous-chaîne en utilisant la valeur d'index négative
$ substring = substr ($ string, -9);
Imprimez "la valeur de sous-chaîne en utilisant l'index négatif: \ n", $ substring, "\ n";
Sortir:
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-2: utilisation de la fonction substr () avec le premier argument facultatif
Créez un fichier perl avec le code suivant qui affiche l'utilisation de la fonction substr () avec le premier argument facultatif. La valeur d'indice de départ positive a été utilisée dans les deux fonctions substr () ici. La valeur de longueur positive a été utilisée dans la première fonction substr (). Ainsi, la valeur de longueur sera comptée à partir de la gauche. La valeur de longueur négative a été utilisée dans la deuxième fonction substr (). Ainsi, la valeur de longueur sera comptée à partir de la droite. La valeur de longueur commence à compter à partir de 1 pour les valeurs positives et négatives. La sortie des deux fonctions substr () a été imprimée plus tard.
#!/ usr / bin / perl
#Define la valeur de chaîne
$ string = "Bienvenue à LinuxHint";
# Printent la valeur originale
imprimer "La chaîne d'origine est: \ n", $ string, "\ n";
#Nut la sous-chaîne en utilisant des valeurs d'index et de longueur positifs
$ substring = substr ($ string, 3, 4);
Imprimez "La valeur de sous-chaîne en utilisant un index positif: \ n", $ substring, "\ n";
# Coupe la sous-chaîne en utilisant l'indice positif et les valeurs de longueur négative
$ substring = substr ($ string, 11, -4);
Imprimez "la valeur de sous-chaîne en utilisant l'index négatif: \ n", $ substring, "\ n";
Sortir:
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-3: utilisation de la fonction substr () avec tous les arguments facultatifs
Créez un fichier perl avec le code suivant qui affiche l'utilisation de la fonction substr () avec tous les arguments facultatifs. La fonction substr () a été utilisée trois fois ici. Dans la première fonction substr (), la sous-chaîne correspondante sera remplacée par la chaîne, «PHP.”Dans la deuxième fonction substr (), la sous-chaîne correspondante sera remplacée par la chaîne,« Script."Dans la troisième fonction substr (), la sous-chaîne correspondante sera remplacée par la chaîne vide. La sortie de toutes les fonctions substr () a été imprimée plus tard.
#!/ usr / bin / perl
#Define la valeur de chaîne
$ string = "Programmation d'apprentissage perl";
# Printent la valeur originale
imprimer "La chaîne d'origine est: \ n", $ string, "\ n";
#Replace la sous-chaîne en utilisant l'index positif et la valeur de longueur
$ remplace1 = substr ($ string, 6, 4, "php");
Imprimez "La chaîne remplacée en utilisant l'index positif et la longueur: \ n", $ string, "\ n";
#Replace la sous-chaîne en utilisant l'index négatif et la valeur de longueur positive
$ remplace1 = substr ($ string, -11, 11, "script");
Imprimez "La chaîne remplacée en utilisant l'index négatif et la longueur positive: \ n", $ string, "\ n";
#Replace la sous-chaîne en utilisant l'indice positif et la valeur de longueur négative
$ remplace1 = substr ($ string, 0, -10, "");
Imprimez "La chaîne remplacée en utilisant l'index positif et la longueur négative: \ n", $ string, "\ n";
Sortir:
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-4: extraire la valeur d'une chaîne à l'aide de substr ()
Créez un fichier perl avec le code suivant qui réduira la valeur de date et la valeur de temps séparément d'une chaîne. Ici, la variable $ DateTime a été utilisée pour stocker une valeur de chaîne qui contient une valeur de date et d'heure particulière. La première fonction substr () a été utilisée pour récupérer la valeur de date, et la deuxième fonction substr () a été utilisée pour récupérer la valeur temporelle de la variable $ DateTime. La sortie de toutes les fonctions substr () a été imprimée plus tard.
#!/ usr / bin / perl
#Define la valeur de chaîne
$ DateTime = "17-06-22 05:30 AM";
# Printent la valeur originale
Imprimer "La chaîne d'origine est: \ n", $ dateTime, "\ n";
# Récupère la valeur de date de la chaîne
$ date = substr ($ DateTime, 0, 8);
# Print la valeur de date
imprimer "La valeur de date est: \ n", $ date, "\ n";
# Récupère la valeur de temps de la chaîne
$ time = substr ($ DateTime, 9);
# Print la valeur de temps
imprimer "La valeur de temps est: \ n", $ time, "\ n";
Sortir:
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Conclusion
Les utilisations de la fonction substr () avec différents types de valeurs d'argument ont été montrées dans ce tutoriel en utilisant plusieurs exemples. J'espère que ce tutoriel aidera les utilisateurs de Perl à connaître le but de l'utilisation de la fonction substr () dans Perl.