Użycie instrukcji „If” w Perl
Składnia
Różne składni instrukcji „jeśli” podano poniżej.
A. If oświadczenie
If (warunek)
sprawozdania)
Powyższa składnia służy do wykonywania instrukcji, jeśli warunek zdefiniowany w instrukcji „Jeśli” zwróci true.
B. Oświadczenie IF-ELSE
If (warunek)
sprawozdania)
w przeciwnym razie
sprawozdania)
Powyższa składnia służy do wykonywania instrukcji bloku „If” Jeśli warunek zwróci w przeciwnym razie, wykonaj instrukcje bloku „else”.
C. Instrukcja IF-ELSE-IF
if (warunek)
sprawozdania)
else if (warunek)
sprawozdania)
w przeciwnym razie if (warunek)
sprawozdania)
…
w przeciwnym razie
sprawozdania)
Powyższa składnia służy do wykonywania instrukcji pierwszego bloku „Jeśli”, jeśli warunek zwróci w przeciwnym razie, wykonaj instrukcje następnego bloku „else”, jeśli warunek zwróci prawdziwie. Jeśli warunek całego bloku „jeśli” zwróci false, wówczas zostaną wykonane instrukcje bloku „else”.
Zastosowania różnych rodzajów stwierdzeń „jeśli” zostały pokazane w następnej części tego samouczka.
Przykład-1: użycie instrukcji „If”
Utwórz plik PERL z następującym kodem, który wydrukuje bieżącą datę i godzinę systemu, jeśli numer wejściowy pobrany od użytkownika jest większy lub równy 10; W przeciwnym razie nic nie zostanie wydrukowane. czas lokalny() Funkcja została użyta w kodzie do odczytania bieżącej daty i godziny systemu.
# Weź dane wejściowe od użytkownika
Wydrukuj „Wprowadź numer:”;
$ wartość =;
# Sprawdź, czy wartość wejściowa jest większa lub równa 10, czy nie
if ($ wartość> = 10)
# Przeczytaj aktualną datę i godzinę
$ dateTime = localTime ();
# Wydrukuj bieżącą wartość daty i godziny
druk („Dzisiaj jest $ dateTime \ n”);
Wyjście
Następujące dane wyjściowe pojawi się po wykonaniu powyższego kodu dwa razy z wartościami wejściowymi 10 i 5.
Przykład-2: użycie instrukcji „IF-Else”
Utwórz plik PERL z następującym kodem, który porównuje dwie wartości liczby pobrane od użytkownika i drukuje komunikat na podstawie wartości. Funkcja Chomp () została użyta do usunięcia nowych linii z wartości wejściowych. Funkcja int () została użyta do konwersji wartości wejściowej na liczbę przed porównaniem wartości. Oświadczenie „IF-ELSE” zostało tutaj użyte do sprawdzenia, czy liczby wejściowe są równe, czy nie.
# Weź liczbę wejść od użytkownika
Wydrukuj „Wprowadź pierwszy numer:”;
$ value1 =;
Wydrukuj „Wprowadź drugą liczbę:”;
$ value2 =;
# Usuń nową linię z każdego wejścia
Chomp ($ value1);
Chomp ($ value2);
# Sprawdź wartości wejściowe są równe lub nie
if (int ($ value1) == int ($ value2))
wydrukuj „$ value1 i $ value2 są równe.\N";
w przeciwnym razie
wydrukuj „$ value1 i $ value2 nie są równe.\N";
Wyjście
Następujące dane wyjściowe pojawi się po wykonaniu powyższego kodu z wartościami 7 i 5.
Następujące dane wyjściowe pojawi się po wykonaniu powyższego kodu z wartościami 4 i 4.
Przykład-3: użycie instrukcji „IF-ELEF-ELSE”
Utwórz plik PERL z następującym kodem, który sprawdzi, czy dwie wartości liczby pobrane od użytkownika są równe, czy pierwsza liczba jest większa niż druga liczba, lub pierwsza liczba jest mniejsza niż druga liczba. Funkcja Chomp () została użyta do usunięcia nowych linii z wartości wejściowych. Funkcja int () została użyta do konwersji wartości wejściowej na liczbę przed porównaniem wartości. Do wykonania wymienionego powyższego zadania i wydrukowanie odpowiedniej wiadomości i wydrukowanie odpowiedniego komunikatu użyto instrukcji „IF-ELESIF-ELSE,
# Weź liczbę danych wejściowych od użytkownika
Wydrukuj „Wprowadź pierwszy numer:”;
$ value1 =;
Wydrukuj „Wprowadź drugą liczbę:”;
$ value2 =;
# Usuń nową linię z każdego wejścia
Chomp ($ value1);
Chomp ($ value2);
# Sprawdź wartości wejściowe są równe lub nie
if (int ($ value1) == int ($ value2))
wydrukuj „$ value1 i $ value2 są równe.\N";
# Sprawdź, czy pierwsza wartość jest niższa niż druga wartość
elsif (int ($ value1) < int($value2))
wydrukuj „$ wartość1 jest mniej niż wartość $ 2.\N";
w przeciwnym razie
wydrukuj „$ wartość1 jest większy niż wartość $ 2.\N";
Wyjście
Następujące dane wyjściowe pojawi się po wykonaniu powyższego kodu z wartościami 5 i 5.
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu z wartościami 9 i 5.
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu z wartościami 3 i 6.
Przykład-4: użycie zagnieżdżonego oświadczenia „If”
Utwórz plik PERL z następującym kodem, który używa zagnieżdżonych warunków do wydrukowania wiadomości na podstawie wartości wejściowej pobranej od użytkownika. Zgodnie z kodem, jeśli znak MCQ pobrany od użytkownika jest większy lub równy 70, wówczas oceny opisowe zostaną pobrane od użytkownika, a drugi warunek „jeśli” zostanie sprawdzony. Jeśli znak opisowy jest większy lub równy 50, to „Zdałeś egzamin.„Wszelkie inne wiadomości zostaną wydrukowane, jeśli którykolwiek z warunków„ jeśli ”zwróci false.
# Weź oceny MCQ od użytkownika
Wydrukuj „Wprowadź MCQ Marks:”;
$ MCQ =;
# Sprawdź pierwszy warunek
if ($ mcq> = 70)
# Weź oceny opisowe od użytkownika
Wydrukuj „Wprowadź opisowe oceny:”;
$ opisowy =;
# Sprawdź drugi warunek
if ($ descriptive> = 50)
# Wydrukuj wiadomość, gdy oba warunki „jeśli” powrócą prawdziwie
wydrukuj „zdałeś egzamin.\N";
w przeciwnym razie
# Wydrukuj wiadomość, jeśli drugi warunek „if” zwróci false
wydrukuj „Nie zdałeś egzaminu.\N";
w przeciwnym razie
# Wydrukuj wiadomość, jeśli pierwszy warunek „jeśli” zwróci false
wydrukuj „Nie zdałeś egzaminu.\N";
Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu z wartościami 75 i 46.
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu z wartościami 77 i 58.
Następujące dane wyjściowe pojawi się po wykonaniu powyższego kodu z wartością 65.
Wniosek
Sposób użycia prostego „if”, „IF-Else”, „IF-ELEF-ELSE” i zagnieżdżone stwierdzenia „If” zostały pokazane w tym samouczku za pomocą wielu przykładów.