Comparaison de la chaîne Perl

«De nombreuses options existent dans Perl pour comparer les valeurs de chaîne. Une façon consiste à utiliser le «cmp»Opérateur, et une autre façon est d'utiliser des opérateurs de comparaison, qui sont «Eq», «NE», «lt."Et" GT." Le "==»L'opérateur est utilisé pour la comparaison des nombres uniquement dans Perl. Différentes façons de comparer deux chaînes à Perl ont été montrées dans ce tutoriel."

Comparez les chaînes à l'aide de l'opérateur «CMP»

L'opérateur «CMP» est utilisé pour comparer deux chaînes et découvrir si le premier est inférieur ou égal à, ou supérieur à la deuxième chaîne. Créez un fichier Perl avec le code suivant pour connaître les utilisations de l'opérateur «CMP» dans Perl. Deux valeurs de chaîne seront tirées de l'utilisateur pour la comparaison. La fonction chomp () a été utilisée dans le code pour supprimer la nouvelle ligne des deux valeurs de chaîne tirées de l'utilisateur. Ensuite, la sortie de l'opérateur «CMP» sera stockée dans une variable. La valeur de retour de l'opérateur «CMP» sera 0 si les deux chaînes sont égales. La valeur de retour de l'opérateur «CMP» sera 1 si la première chaîne est supérieure à la deuxième chaîne. La valeur de retour de l'opérateur «CMP» sera -1 si la première chaîne est inférieure à la deuxième chaîne.

# Prenez deux valeurs de chaîne
Imprimez "Entrez la première chaîne:";
$ Str1 = ;
Imprimez "Entrez la deuxième chaîne:";
$ Str2 = ;
# Supprimer la nouvelle ligne de chaque variable de chaîne
chomp ($ str1, $ str2);
# Comparez les variables de chaîne à l'aide de l'opérateur «CMP»
$ output = $ str1 cmp $ str2;
# Vérifiez la sortie de l'opérateur «CMP»
if ($ output == 0)

imprimer "Les deux chaînes sont égales.\ n ";

elsif ($ output == 1)

Print "$ str1 est supérieur à $ str2 \ n";

autre

Print "$ str1 est inférieur à $ str2 \ n";

Sortir

Selon la sortie suivante, le code a été exécuté trois fois. La première valeur d'entrée était «Bonjour,»Et la deuxième valeur d'entrée était«Bonjour”Dans la première exécution du code. Le personnage "H"Est plus grand que le personnage"H"Basé sur la valeur ASCII de ces caractères. Donc, "Bonjour est plus grand que bonjour»A été imprimé dans la première sortie. Pour la même raison, "Bonjour est moins de bonjour”A été dans la deuxième sortie. Les deux «Bonjour» et «bonjour» sont égaux qui ont été pris dans la troisième exécution du code. Donc, "Les deux cordes sont égales.»A été imprimé dans la troisième sortie.

Comparez les chaînes à l'aide de l'opérateur «EQ»

Le "égaliseur»L'opérateur est utilisé dans Perl pour savoir si deux valeurs de chaîne sont égales ou non. Créez un fichier perl avec le code suivant pour connaître l'utilisation du «égaliseur»Opérateur pour comparer les valeurs de chaîne. Deux valeurs de chaîne ont été stockées en deux variables. Le premier mot des deux valeurs de chaîne est égal, et c'est «Bien,"Mais la deuxième partie des valeurs de chaîne n'est pas égale. Alors le "égaliseur»L'opérateur retournera un FAUX valeur.

# Déclarer deux variables de cordes
$ Str1 = "bonjour";
$ Str2 = "au revoir";
# Comparez les chaînes à l'aide de l'opérateur «EQ»
if ($ str1 eq $ str2)

imprimer "Les deux chaînes sont égales.\ n ";

autre

imprimer "Les chaînes ne sont pas égales.\ n ";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Comparez les chaînes à l'aide de l'opérateur «NE»

Le "ne»L'opérateur est utilisé dans Perl pour savoir si deux valeurs de chaîne ne sont pas égales ou non. Créez un fichier perl avec le code suivant pour connaître l'utilisation du «ne»Opérateur pour comparer les valeurs de chaîne. Deux valeurs de chaîne ont été stockées en deux variables. Les 4 premiers caractères des deux valeurs de chaîne sont égaux, et c'est "Bien,"Mais la deuxième partie des valeurs de chaîne n'est pas égale. Ici le fonction substr () a été utilisé pour couper les 4 premiers caractères des deux valeurs de chaîne, et ensuite, les valeurs ont été comparées à l'opérateur «NE». Alors le "ne»L'opérateur retournera un FAUX valeur.

# Déclarer deux variables de cordes
$ Str1 = "bonjour";
$ Str2 = "au revoir";
# Comparez la partie particulière des chaînes à l'aide de l'opérateur «NE»
if (substr ($ str1,0,4) ne substr ($ str2,0,4)))

imprimer "Les 4 premiers caractères des deux chaînes ne sont pas égaux.\ n ";

autre

imprimer "Les 4 premiers caractères des deux chaînes sont égaux.\ n ";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Comparez les chaînes à l'aide de l'opérateur «LT»

Le "LT»L'opérateur est utilisé dans Perl pour savoir si la première chaîne est inférieure à la deuxième chaîne ou non. Créez un fichier perl avec le code suivant pour connaître l'utilisation du «LT»Opérateur pour comparer les valeurs de chaîne. Ici le substr () La fonction a été utilisée pour couper les caractères de la position 5 à la partie restante des deux chaînes. Ensuite, les valeurs ont été comparées au ««LT»Opérateur. Ici, le personnage «M"Est plus grand que le personnage"B»Basé sur la valeur ASCII. Alors le "LT»L'opérateur retournera un FAUX valeur.

# Déclarer deux variables de cordes
$ Str1 = "bonjour";
$ Str2 = "au revoir";
# Comparez la partie particulière des chaînes à l'aide de l'opérateur «LT»
if (substr ($ str1,5) lt substr ($ str2,5)))

Print "$ str1 est inférieur à $ str2 \ n";

autre

Print "$ str1 est supérieur à $ str2 \ n";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Comparez les chaînes à l'aide de l'opérateur «GT»

Le "GT»L'opérateur est utilisé dans Perl pour savoir si la première chaîne est supérieure à la deuxième chaîne ou non. Créez un fichier perl avec le code suivant pour connaître l'utilisation du «GT»Opérateur pour comparer les valeurs de chaîne. Deux valeurs de chaîne seront tirées de l'utilisateur. Le Fonction chomp () a été utilisé ici pour supprimer la nouvelle ligne des valeurs d'entrée avant de comparer les valeurs à l'aide du «GT»Opérateur.

# Prenez deux valeurs de chaîne
Imprimez "Entrez la première chaîne:";
$ Str1 =;
Imprimez "Entrez la deuxième chaîne:";
$ Str2 =;
# Comparez les chaînes à l'aide de l'opérateur «GT»
if (chomp ($ str1) gt chomp ($ str2)))

Print "$ str1 est supérieur à $ str2 \ n";

autre

Print "$ str1 est inférieur à $ str2 \ n";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus pour les valeurs d'entrée, «Hello World» et «Hello World."

Conclusion

Différentes façons de comparer les valeurs de chaîne dans Perl ont été montrées dans ce tutoriel en utilisant des opérateurs de comparaison multiples. Les utilisateurs de Perl peuvent utiliser l'un des opérateurs de comparaison pour comparer les valeurs de chaîne dans Perl.