„In Perl gibt es viele Optionen, um Stringwerte zu vergleichen. Eine Möglichkeit besteht darin, das zu verwendenCMPOperator und eine andere Möglichkeit besteht darin, Vergleichsbetreiber zu verwenden, die sind "EQ", "Ne", "Lt.Und "gt.” Der "==Der Bediener wird nur in Perl zum Zahlenvergleich verwendet. In diesem Tutorial wurden verschiedene Möglichkeiten zum Vergleich von zwei Zeichenfolgen in Perl gezeigt.”
Vergleichen Sie Zeichenfolgen mit dem CMP -Operator
Der „CMP“ -Preiber wird zum Vergleichen von zwei Zeichenfolgen und herauszufinden, ob der erste weniger oder gleich oder höher ist als die zweite Zeichenfolge. Erstellen Sie eine Perl -Datei mit dem folgenden Code, um die Verwendung des CMP -Operators in Perl zu kennen. Der Benutzer werden zum Vergleich zwei Zeichenfolgewerte entnommen. Die chomp () -Funktion wurde im Code verwendet, um die Newline aus beiden Stringwerten des Benutzers zu entfernen. Als nächstes wird die Ausgabe des CMP -Operators in einer Variablen gespeichert. Der Rückgabewert des „CMP“ -Preibers beträgt 0, wenn beide Zeichenfolgen gleich sind. Der Rückgabewert des "CMP" -Preibers ist 1, wenn die erste Zeichenfolge größer als die zweite Zeichenfolge ist. Der Rückgabewert des "CMP" -Preibers beträgt -1, wenn die erste Zeichenfolge geringer ist als die zweite Zeichenfolge.
# Nehmen Sie zwei Zeichenfolgewerte
Drucken "Die erste Zeichenfolge eingeben:";
$ Str1 =;
Drucken Sie "die zweite Zeichenfolge ein:";
$ Str2 =;
# Neue Linie aus jeder String -Variable entfernen
chomp ($ str1, $ str2);
# Vergleichen Sie die String -Variablen mit dem Operator von 'CMP'
$ output = $ str1 cmp $ str2;
# Überprüfen Sie die Ausgabe des CMP -Operators
if ($ output == 0)
Druck "Beide Saiten sind gleich.\N";
Elsif ($ output == 1)
print "$ str1 ist größer als $ str2 \ n";
anders
print "$ str1 ist weniger als $ str2 \ n";
Ausgang
Nach der folgenden Ausgabe wurde der Code dreimal ausgeführt. Der erste Eingangswert war “Hallo,"Und der zweite Eingangswert war"Hallo”Bei der ersten Ausführung des Codes. Der Charakter "H"Ist größer als der Charakter"HBasierend auf dem ASCII -Wert dieser Zeichen. So, "Hallo ist größer als Hallo”Wurde in der ersten Ausgabe gedruckt. Aus dem gleichen Grunde, "Hallo ist weniger als Hallo”War in der zweiten Ausgabe. Beide "Hallo" und "Hallo" sind gleich, die bei der dritten Ausführung des Codes genommen wurden. So, "Beide Saiten sind gleich.”Wurde in der dritten Ausgabe gedruckt.
Vergleichen Sie Zeichenfolgen mit dem „EQ“ -Preiberator
Der "GlDer Bediener wird in Perl verwendet, um herauszufinden, ob zwei Zeichenfolgewerte gleich sind oder nicht. Erstellen Sie eine Perl -Datei mit dem folgenden Code, um die Verwendung der “zu kennen“GlOperator zum Vergleich von Zeichenfolgenwerten. Zwei Zeichenfolgewerte wurden in zwei Variablen gespeichert. Das erste Wort beider Stringwerte ist gleich, und das heißt “Gut,Aber der zweite Teil der Stringwerte ist nicht gleich. Also das "GlDer Betreiber wird a zurückgeben FALSCH Wert.
# Zwei String -Variablen deklarieren
$ Str1 = "Guten Morgen";
$ Str2 = "Gutes Auf Wiedersehen";
# Vergleichen Sie die Zeichenfolgen mit dem EQ -Operator "EQ"
if ($ str1 EQ $ str2)
Druck "Beide Saiten sind gleich.\N";
anders
Druck "Die Saiten sind nicht gleich.\N";
Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.
Vergleichen Sie die Zeichenfolgen mit dem "NE" -Portler
Der "neDer Bediener wird in Perl verwendet, um herauszufinden, ob zwei Zeichenfolgewerte nicht gleich sind oder nicht. Erstellen Sie eine Perl -Datei mit dem folgenden Code, um die Verwendung der “zu kennen“neOperator zum Vergleich von Zeichenfolgenwerten. Zwei Zeichenfolgewerte wurden in zwei Variablen gespeichert. Die ersten 4 Zeichen beider Stringwerte sind gleich, und das heißt “Gut,Aber der zweite Teil der Stringwerte ist nicht gleich. Hier das substr () Funktion wurde verwendet, um die ersten 4 Zeichen aus beiden Zeichenfolgenwerten zu schneiden, und als nächstes wurden die Werte mit dem „NE“ -Operator verglichen. Also das "neDer Betreiber wird a zurückgeben FALSCH Wert.
# Zwei String -Variablen deklarieren
$ Str1 = "Guten Morgen";
$ Str2 = "Gutes Auf Wiedersehen";
# Vergleichen Sie den jeweiligen Teil der Saiten mit dem Bediener von 'Ne'
if (substr ($ str1,0,4) NE substr ($ str2,0,4))
Druck "Die ersten 4 Zeichen beider Saiten sind nicht gleich.\N";
anders
Druck "Die ersten 4 Zeichen beider Saiten sind gleich.\N";
Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.
Vergleichen Sie Zeichenfolgen mit dem LT -Operator
Der "ltDer Bediener wird in Perl verwendet, um herauszufinden, ob die erste Zeichenfolge kleiner als die zweite Zeichenfolge ist oder nicht. Erstellen Sie eine Perl -Datei mit dem folgenden Code, um die Verwendung der “zu kennen“ltOperator zum Vergleich von Zeichenfolgenwerten. Hier das substr () Die Funktion wurde verwendet, um die Zeichen von Position 5 auf den verbleibenden Teil beider Saiten zu schneiden. Als nächstes wurden die Werte mit dem "verglichen"lt" Operator. Hier, der Charakter “M"Ist größer als der Charakter"BBasierend auf dem ASCII -Wert. Also das "ltDer Betreiber wird a zurückgeben FALSCH Wert.
# Zwei String -Variablen deklarieren
$ Str1 = "Guten Morgen";
$ Str2 = "Gutes Auf Wiedersehen";
# Vergleichen Sie den jeweiligen Teil der Saiten mit dem LT -Operator "LT"
if (substr ($ str1,5) lt substr ($ str2,5))
print "$ str1 ist weniger als $ str2 \ n";
anders
print "$ str1 ist größer als $ str2 \ n";
Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.
Vergleichen Sie Zeichenfolgen mit dem GT -Operator
Der "gtDer Bediener wird in Perl verwendet, um herauszufinden, ob die erste Zeichenfolge größer ist als die zweite Zeichenfolge oder nicht. Erstellen Sie eine Perl -Datei mit dem folgenden Code, um die Verwendung der “zu kennen“gtOperator zum Vergleich von Zeichenfolgenwerten. Der Benutzer werden zwei Zeichenfolgewerte entnommen. Der chomp () Funktion wurde hier verwendet, um die Newline aus den Eingabewerten zu entfernen, bevor die Werte mit der “verglichen werden“gt" Operator.
# Nehmen Sie zwei Zeichenfolgewerte
Drucken "Die erste Zeichenfolge eingeben:";
$ Str1 =;
Drucken Sie "die zweite Zeichenfolge ein:";
$ Str2 =;
# Vergleichen Sie die Zeichenfolgen mit dem GT -Operator "GT"
if (chomp ($ str1) gt chomp ($ str2))
print "$ str1 ist größer als $ str2 \ n";
anders
print "$ str1 ist weniger als $ str2 \ n";
Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Code für die Eingabewerte angezeigt, "Hallo Welt" und "Hallo Welt.”
Abschluss
In diesem Tutorial wurden verschiedene Möglichkeiten zum Vergleich von Zeichenfolgenwerten in Perl unter Verwendung mehrerer Vergleichsoperatoren gezeigt. Die Perl -Benutzer können einen der Vergleichsbetreiber verwenden, um die Stringwerte in Perl zu vergleichen.