Porównanie ciągów perla

„W Perl istnieje wiele opcji, aby porównać wartości ciągów. Jednym ze sposobów jest użycie „CMP„Operator, a innym sposobem jest użycie operatorów porównawczych, które są „EQ”, „NE”, „LT.”I„ GT." „„==„Operator jest używany do porównania liczb tylko w Perl. W tym samouczku pokazano różne sposoby porównywania dwóch ciągów w Perl."

Porównaj struny za pomocą operatora „CMP”

Operator „CMP” służy do porównywania dwóch ciągów i ustalenia, czy pierwszy jest mniejszy lub równy, czy większy niż drugi ciąg. Utwórz plik PERL z następującym kodem, aby poznać zastosowania operatora „CMP” w Perl. Dwie wartości łańcuchowe zostaną pobrane od użytkownika dla porównania. Funkcja Chomp () została użyta w kodzie do usunięcia nowej linii z obu wartości ciągu pobranych od użytkownika. Następnie wyjście operatora „CMP” będzie przechowywane w zmiennej. Wartość zwrotna operatora „CMP” wyniesie 0, jeśli oba ciągi są równe. Wartość zwracana operatora „CMP” wyniesie 1, jeśli pierwszy ciąg jest większy niż drugi ciąg. Wartość zwracana operatora „CMP” wyniesie -1, jeśli pierwszy ciąg jest mniejszy niż drugi ciąg.

# Weź dwie wartości ciągów
Wydrukuj „Wprowadź pierwszy ciąg:”;
$ Str1 = ;
Wydrukuj „Wprowadź drugi ciąg:”;
$ Str2 = ;
# Usuń nową linię z każdej zmiennej łańcuchowej
Chomp ($ str1, $ str2);
# Porównaj zmienne ciągów za pomocą operatora „CMP”
$ wyjściowe = $ str1 cmp $ str2;
# Sprawdź wyjście operatora „CMP”
if ($ wyjściowe == 0)

Drukuj „Oba ciągi są równe.\N";

elsif ($ wyjściowe == 1)

Drukuj „$ str1 jest większy niż $ str2 \ n”;

w przeciwnym razie

Drukuj „$ str1 jest mniejszy niż $ str2 \ n”;

Wyjście

Zgodnie z następującym wyjściem kod został wykonany trzy razy. Pierwsza wartość wejściowa była „Witam,”, A druga wartość wejściowa była„Cześć”W pierwszym wykonaniu kodu. Charakter "H”Jest większy niż postać„H”W oparciu o wartość ASCII tych znaków. Więc, "Witam jest większy niż Hello”Został wydrukowany w pierwszym wyjściu. Z tego samego powodu, "Witam jest mniej niż cześć”Było w drugiej wyjściu. Obydwa „Hello” i „Hello” są równe, które zostały przyjęte w trzeciej realizacji kodu. Więc, "Oba struny są równe.”Został wydrukowany w trzeciej wyjściu.

Porównaj struny za pomocą operatora „EQ”

„„Eq„Operator jest używany w Perl, aby dowiedzieć się, czy dwie wartości łańcuchowe są równe, czy nie. Utwórz plik PERL z następującym kodem, aby poznać użycie „Eq„Operator do porównywania wartości ciągów. Dwie wartości łańcuchowe zostały przechowywane w dwie zmienne. Pierwsze słowo obu wartości ciągów jest równe, a to jest „Dobry,”Ale druga część wartości ciągu nie jest równa. Więc „Eq„Operator zwróci FAŁSZ wartość.

# Deklaruj dwie zmienne łańcuchowe
$ Str1 = „dzień dobry”;
$ Str2 = "Good pa";
# Porównaj struny za pomocą operatora „EQ”
if ($ str1 eq $ str2)

Drukuj „Oba ciągi są równe.\N";

w przeciwnym razie

wydruku „ciągi nie są równe.\N";

Wyjście

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Porównaj struny za pomocą operatora „NE”

„„ne„Operator jest używany w Perl, aby dowiedzieć się, czy dwie wartości nie są równe, czy nie. Utwórz plik PERL z następującym kodem, aby poznać użycie „ne„Operator do porównywania wartości ciągów. Dwie wartości łańcuchowe zostały przechowywane w dwie zmienne. Pierwsze 4 znaki obu wartości łańcuchowych są równe, a to jest „Dobry,”Ale druga część wartości ciągu nie jest równa. Tutaj funkcja substr () został użyty do wycięcia pierwszych 4 znaków z obu wartości ciągów, a następnie wartości zostały porównane z operatorem „NE”. Więc „ne„Operator zwróci FAŁSZ wartość.

# Deklaruj dwie zmienne łańcuchowe
$ Str1 = „dzień dobry”;
$ Str2 = "Good pa";
# Porównaj konkretną część ciągów za pomocą operatora „NE”
if (subtr ($ STR1,0,4) NE Substr ($ STR2,0,4))

wydrukuj „Pierwsze 4 znaki obu strun nie są równe.\N";

w przeciwnym razie

wydrukuj „Pierwsze 4 znaki obu ciągów jest równe.\N";

Wyjście

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Porównaj struny za pomocą operatora „LT”

„„Lt„Operator jest używany w Perl, aby dowiedzieć się, czy pierwszy ciąg jest mniejszy niż drugi ciąg. Utwórz plik PERL z następującym kodem, aby poznać użycie „Lt„Operator do porównywania wartości ciągów. Tutaj substr () Funkcja została użyta do odcięcia znaków z pozycji 5 do pozostałej części obu ciągów. Następnie wartości zostały porównane z „Lt„Operator. Tutaj postać „M”Jest większy niż postać„B”W oparciu o wartość ASCII. Więc „Lt„Operator zwróci FAŁSZ wartość.

# Deklaruj dwie zmienne łańcuchowe
$ Str1 = „dzień dobry”;
$ Str2 = "Good pa";
# Porównaj konkretną część ciągów za pomocą operatora „LT”
if (substr ($ str1,5) LT Substr ($ STR2,5))

Drukuj „$ str1 jest mniejszy niż $ str2 \ n”;

w przeciwnym razie

Drukuj „$ str1 jest większy niż $ str2 \ n”;

Wyjście

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Porównaj struny za pomocą operatora „GT”

„„Gt„Operator jest używany w Perl, aby dowiedzieć się, czy pierwszy ciąg jest większy niż drugi ciąg. Utwórz plik PERL z następującym kodem, aby poznać użycie „Gt„Operator do porównywania wartości ciągów. Dwie wartości łańcuchowe zostaną pobrane od użytkownika. funkcja chomp () został tutaj użyty do usunięcia nowej linii z wartości wejściowych przed porównanie wartości za pomocą „Gt„Operator.

# Weź dwie wartości ciągów
Wydrukuj „Wprowadź pierwszy ciąg:”;
$ Str1 =;
Wydrukuj „Wprowadź drugi ciąg:”;
$ Str2 =;
# Porównaj struny za pomocą operatora „GT”
if (chomp ($ str1) gt chomp ($ str2))

Drukuj „$ str1 jest większy niż $ str2 \ n”;

w przeciwnym razie

Drukuj „$ str1 jest mniejszy niż $ str2 \ n”;

Wyjście

Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu dla wartości wejściowych, „Hello World” i „Hello World."

Wniosek

W tym samouczku pokazano różne sposoby porównywania wartości ciągów w Perl za pomocą wielu operatorów porównawczych. Użytkownicy Perl mogą korzystać z dowolnego z operatorów porównawczych do porównania wartości ciągów w PERL.