Diversi esempi di moduli Perl
I metodi per utilizzare i moduli Perl integrati e i moduli definiti dall'utente sono mostrati in questa parte del tutorial.
Esempio 1: utilizzo del modulo integrato
In questo esempio vengono mostrati gli usi di tre moduli integrati di Perl. Questi sono 'severi', 'avvertimenti' e '5.34.0'. Il modulo “strict” viene utilizzato per abilitare i diversi tipi di restrizioni per scrivere gli script Perl. Ad esempio, nessuna variabile può essere dichiarata senza la parola chiave 'my' se questo modulo viene utilizzato nello script. Il modulo “warnings” viene utilizzato per visualizzare i diversi tipi di messaggi di avviso dopo l'esecuzione dello script che aiuta il programmatore a comprendere l'errore. Il modulo “5.34.0” viene utilizzato per utilizzare le diverse funzionalità di questo modulo nello script. La funzione 'say' utilizzata per stampare i messaggi con newline è la caratteristica di questo modulo.
#!/usr/bin/perl
#Abilita restrizione per la codifica
usare rigoroso ;
#Visualizza un messaggio di avviso per errore
utilizzo avvertimenti ;
#Abilita diversi servizi
utilizzare 5.34.0 ;
#L'uso della parola chiave 'my' è obbligatorio per il modulo 'strict'
la mia $lingua = 'Perl' ;
#Abilita l'uso della funzione 'dire'.
Dire 'Impara la programmazione in $linguaggio.' ;
Produzione:
Dopo l'esecuzione dello script viene visualizzato il seguente output:
Esempio 2: utilizzo del modulo definito dall'utente
Gli utenti Perl possono creare il proprio modulo per uno scopo particolare creando un file con l'estensione “.pm”. In questo esempio, viene creato un modulo definito dall'utente e viene utilizzato in un altro script Perl utilizzando la parola chiave 'use'.
Creare un modulo definito dall'utente:
Crea un file denominato 'Bonus.pm' con il seguente script. Qui, la parola chiave 'pacchetto' viene utilizzata per definire che si tratta di un modulo. Questo modulo contiene una subroutine che calcola il bonus di un dipendente in base allo stipendio e all'importo delle vendite. Due valori di argomento vengono passati dallo script Perl in cui viene utilizzato questo modulo. Il primo argomento contiene lo stipendio e il secondo argomento contiene l'importo delle vendite. Il bonus è del 15% dell'importo delle vendite se lo stipendio è superiore a 10.000. Il bonus è del 10% dell'importo delle vendite se lo stipendio è superiore a 7.000. Il bonus è del 5% dell'importo delle vendite se lo stipendio è inferiore a 10.000 Il '1;' viene utilizzato alla fine del modulo per restituire true. Altrimenti viene stampato un errore.
Bonus.pm
#!/usr/bin/perlusare rigoroso ;
utilizzo avvertimenti ;
utilizzare 5.34.0 ;
Pacchetto Bonus ;
#Dichiara la subroutine per calcolare il bonus
sottocalcola_bonus
{
# Inizializza le variabili
il mio $ stipendio = $_ [ 0 ] ;
il mio $importo_vendite = $_ [ 1 ] ;
il mio $bonus = 0,0 ;
#Calcola bonus
Se ( $stipendio > 10000 )
{
$bonus = $importo_vendite* 0,15 ;
}
else ( $stipendio > 7000 )
{
$bonus = $importo_vendite* 0,10 ;
}
altro
{
$bonus = $importo_vendite* 0,05 ;
}
#Restituisci il bonus calcolato
ritorno $bonus ;
}
1 ;
Importa un modulo in uno script Perl:
Crea un file Perl con il seguente script che importa il modulo 'Bonus' creato in precedenza per calcolare l'importo del bonus di un dipendente in base allo stipendio e all'importo delle vendite assegnati nello script.
#!/usr/bin/perlusare rigoroso ;
utilizzo avvertimenti ;
utilizzare 5.34.0 ;
utilizzare Bonus ;
#Inizializza le variabili
il mio $nome = 'Mir Sabbir' ;
il mio $ stipendio = 60000 ;
il mio $sal_amount = 9700 ;
#Richiama subroutine dal modulo
il mio $bonus = Bonus::calcola_bonus ( $stipendio , $importo_sal ) ;
il mio $stipendio_con_bonus = $ stipendio + $ bonus ;
#Stampa le informazioni sui dipendenti in base alle vendite
Dire 'Dettagli del dipendente: \N ' ;
Dire 'Nome: $nome' ;
Dire 'Stipendio: $stipendio' ;
Dire 'Stipendio(con bonus): $stipendio_con_bonus' ;
Produzione:
Il seguente output viene visualizzato dopo l'esecuzione dello script. Qui, il '-io'. l'opzione deve essere utilizzata al momento dell'esecuzione dello script per scoprire il modulo importato definito dall'utente:
Esempio 3: utilizzo del modulo definito dall'utente utilizzando 'Require'
La funzione “require” è un altro modo per importare i moduli nello script Perl ed è mostrata in questo esempio. Il modulo “Bonus” precedentemente creato viene importato nello script utilizzando la funzione “richiedi”. I valori dello stipendio e dell'importo delle vendite vengono presi dall'utente in questo script. L'altra parte dello script è simile all'esempio precedente.
#!/usr/bin/perlusare rigoroso ;
utilizzo avvertimenti ;
utilizzare 5.34.0 ;
richiedono Bonus ;
#Ricevi input dall'utente
Dire 'Inserisci il nome del dipendente:' ;
masticare ( il mio $nome = <> ) ;
Dire 'Inserisci lo stipendio:' ;
masticare ( il mio $ stipendio = <> ) ;
Dire 'Inserisci l'importo delle vendite:' ;
masticare ( il mio $sal_amount = <> ) ;
#Richiama subroutine dal modulo
il mio $bonus = Bonus::calcola_bonus ( $stipendio , $importo_sal ) ;
il mio $stipendio_con_bonus = $ stipendio + $ bonus ;
#Stampa le informazioni sui dipendenti in base alle vendite
Dire 'Dettagli del dipendente: \N ' ;
Dire 'Nome: $nome' ;
Dire 'Stipendio: $stipendio' ;
Dire 'Stipendio(con bonus): $stipendio_con_bonus' ;
Produzione:
Dopo l'esecuzione dello script viene visualizzato il seguente output:
Conclusione
Gli usi dei moduli integrati e definiti dall'utente in Perl sono mostrati in questo tutorial utilizzando semplici esempi.