Uso dell'istruzione if in Perl
Sintassi
Di seguito sono riportate diverse sintassi di dichiarazioni "if".
UN. If Dichiarazione
If (condizione)
dichiarazione (i)
La sintassi sopra viene utilizzata per eseguire le istruzioni se la condizione definita nell'istruzione "if" restituisce vera.
B. Dichiarazione If-Else
If (condizione)
dichiarazione (i)
altro
dichiarazione (i)
La sintassi sopra viene utilizzata per eseguire le istruzioni del blocco "if" se la condizione restituisce vera altrimenti, eseguire le istruzioni del blocco "else".
C. istruzione if-else-if
if (condizione)
dichiarazione (i)
else if (condition)
dichiarazione (i)
else if (condition)
dichiarazione (i)
..
altro
dichiarazione (i)
La sintassi di cui sopra viene utilizzata per eseguire le istruzioni del primo blocco "if" se la condizione restituisce vera altrimenti, eseguire le istruzioni del blocco successivo "else se" se la condizione restituisce vera. Se la condizione di tutto il blocco "if" restituisce false, verranno eseguite le istruzioni del blocco "else".
Gli usi di diversi tipi di dichiarazioni "if" sono stati mostrati nella parte successiva di questo tutorial.
Esempio-1: uso dell'istruzione "if"
Creare un file Perl con il seguente codice che stamperà la data e l'ora corrente del sistema se il numero di input prelevato dall'utente è maggiore o uguale a 10; Altrimenti, nulla verrà stampato. IL ora locale() La funzione è stata utilizzata nel codice per leggere la data e l'ora corrente del sistema.
# Prendi un input numero dall'utente
stampare "Immettere un numero:";
$ value =;
# Controlla se il valore di input è maggiore o uguale a 10 o no
if ($ value> = 10)
# Leggi la data e l'ora correnti
$ datetime = localtime ();
# Stampa la data corrente e il valore di tempo
print ("Oggi è $ datetime \ n");
Produzione
La seguente output verrà visualizzata dopo aver eseguito il codice sopra due volte con i valori di input 10 e 5.
Esempio-2: uso dell'istruzione "if-else"
Crea un file Perl con il seguente codice che confronta due valori numerici prelevati dall'utente e stampa un messaggio in base ai valori. La funzione Chomp () è stata utilizzata per rimuovere le nuove linee dai valori di input. La funzione int () è stata utilizzata per convertire il valore di input nel numero prima di confrontare i valori. L'istruzione "if-else" è stata usata qui per verificare se i numeri di input sono uguali o meno.
# Prendi gli input numerici dall'utente
Stampa "Immettere il primo numero:";
$ value1 =;
stampare "Immettere il secondo numero:";
$ value2 =;
# Rimuovi la nuova linea da ogni input
chomp ($ value1);
chomp ($ value2);
# Controllare che i valori di input sono uguali o no
if (int ($ value1) == int ($ value2))
Stampa "$ value1 e $ value2 sono uguali.\N";
altro
Stampa "$ value1 e $ value2 non sono uguali.\N";
Produzione
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con i valori 7 e 5.
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con i valori 4 e 4.
Esempio-3: uso dell'istruzione "If-Elsif-Else"
Crea un file Perl con il seguente codice che verificherà se due valori numerici prelevati dall'utente sono uguali o il primo numero è maggiore del secondo numero, oppure il primo numero è inferiore al secondo numero. La funzione Chomp () è stata utilizzata per rimuovere le nuove linee dai valori di input. La funzione int () è stata utilizzata per convertire il valore di input nel numero prima di confrontare i valori. L'istruzione "If-Elsif-Else" è stata utilizzata qui per eseguire l'attività sopra menzionata e stampare il messaggio appropriato,
# Prendi il numero di input dall'utente
Stampa "Immettere il primo numero:";
$ value1 =;
stampare "Immettere il secondo numero:";
$ value2 =;
# Rimuovi la nuova linea da ogni input
chomp ($ value1);
chomp ($ value2);
# Controllare che i valori di input sono uguali o no
if (int ($ value1) == int ($ value2))
Stampa "$ value1 e $ value2 sono uguali.\N";
# Controllare il primo valore è inferiore al secondo valore
ELSIF (int ($ value1) < int($value2))
Stampa "$ value1 è inferiore a $ value2.\N";
altro
Stampa "$ value1 è maggiore di $ value2.\N";
Produzione
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con i valori 5 e 5.
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con i valori 9 e 5.
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con i valori 3 e 6.
Esempio-4: uso dell'istruzione "if" nidificata
Crea un file Perl con il seguente codice che utilizza condizioni "if" nidificate per stampare un messaggio in base al valore di input prelevato dall'utente. Secondo il codice, se il marchio MCQ prelevato dall'utente è maggiore o uguale a 70, i segni descrittivi verranno prelevati dall'utente e la seconda condizione "if" verrà verificata. Se il segno descrittivo è maggiore o uguale a 50, allora "Hai superato l'esame."Eventuali altri messaggi verranno stampati se una qualsiasi delle condizioni" if "restituisce false.
# Prendi i segni MCQ dall'utente
Stampa "Inserisci i segni MCQ:";
$ mcq =;
# Controlla la prima condizione
if ($ mcq> = 70)
# Prendi i segni descrittivi dall'utente
Stampa "Immettere i segni descrittivi:";
$ descrittivo =;
# Controlla la seconda condizione
if ($ descrittivo> = 50)
# Stampa Messaggio quando entrambe le condizioni "if" ritornano vero
Stampa "Hai superato l'esame.\N";
altro
# Stampa Messaggio se la seconda condizione "if" restituisce false
Stampa "Hai fallito l'esame.\N";
altro
# Stampa Messaggio se la prima condizione "if" restituisce false
Stampa "Hai fallito l'esame.\N";
Produzione
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con i valori 75 e 46.
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con i valori 77 e 58.
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra con il valore 65.
Conclusione
Il modo di utilizzare le semplici "if", "if-else", "if-else" e le dichiarazioni nidificate "if" sono state mostrate in questo tutorial utilizzando più esempi.