Verschiedene Beispiele für Perl-Module
In diesem Teil des Tutorials werden die Methoden zur Verwendung der integrierten Perl-Module und benutzerdefinierten Module gezeigt.
Beispiel 1: Verwendung des integrierten Moduls
In diesem Beispiel werden die Verwendungsmöglichkeiten von drei integrierten Modulen von Perl gezeigt. Dies sind „streng“, „Warnungen“ und „5.34.0“. Das Modul „strict“ wird verwendet, um die verschiedenen Arten von Einschränkungen beim Schreiben der Perl-Skripte zu ermöglichen. Beispielsweise kann keine Variable ohne das Schlüsselwort „my“ deklariert werden, wenn dieses Modul im Skript verwendet wird. Das Modul „Warnungen“ wird verwendet, um nach der Ausführung des Skripts die verschiedenen Arten von Warnmeldungen anzuzeigen, die dem Programmierer helfen, den Fehler zu verstehen. Das Modul „5.34.0“ wird verwendet, um die verschiedenen Funktionen dieses Moduls im Skript zu nutzen. Die „say“-Funktion, die zum Drucken der Nachrichten mit Newline verwendet wird, ist die Funktion dieses Moduls.
#!/usr/bin/perl
#Einschränkung für Codierung aktivieren
verwenden Sie streng ;
#Warnmeldung für Fehler anzeigen
verwenden Warnungen ;
#Aktivieren Sie verschiedene Dienste
Verwenden Sie 5.34.0 ;
#Die Verwendung des Schlüsselworts „my“ ist für das Modul „strict“ obligatorisch
meine $sprache = 'Perl' ;
#Aktivieren Sie die Verwendung der „Sagen“-Funktion
sagen „Lernen Sie $Sprachprogrammierung.“ ;
Ausgabe:
Nach der Ausführung des Skripts erscheint folgende Ausgabe:
Beispiel 2: Verwendung des benutzerdefinierten Moduls
Perl-Benutzer können ihr Modul für einen bestimmten Zweck erstellen, indem sie eine Datei mit der Erweiterung „.pm“ erstellen. In diesem Beispiel wird ein benutzerdefiniertes Modul erstellt und in einem anderen Perl-Skript mit dem Schlüsselwort „use“ verwendet.
Erstellen Sie ein benutzerdefiniertes Modul:
Erstellen Sie mit dem folgenden Skript eine Datei mit dem Namen „Bonus.pm“. Hier wird das Schlüsselwort „package“ verwendet, um zu definieren, dass es sich um ein Modul handelt. Dieses Modul enthält ein Unterprogramm, das den Bonus eines Mitarbeiters basierend auf dem Gehalt und dem Umsatzbetrag berechnet. Vom Perl-Skript, in dem dieses Modul verwendet wird, werden zwei Argumentwerte übergeben. Das erste Argument enthält das Gehalt und das zweite Argument enthält den Umsatzbetrag. Der Bonus beträgt 15 % des Umsatzes, wenn das Gehalt mehr als 10.000 beträgt. Der Bonus beträgt 10 % des Umsatzes, wenn das Gehalt mehr als 7.000 beträgt. Der Bonus beträgt 5 % des Umsatzes, wenn das Gehalt weniger als 10.000 beträgt . Die „1;“ wird am Ende des Moduls verwendet, um true zurückzugeben. Andernfalls wird ein Fehler ausgegeben.
Bonus.pm
#!/usr/bin/perlverwenden Sie streng ;
verwenden Warnungen ;
Verwenden Sie 5.34.0 ;
Paketbonus ;
#Unterroutine zur Berechnung des Bonus deklarieren
sub berechne_bonus
{
# Initialisieren Sie die Variablen
mein Gehalt = $_ [ 0 ] ;
mein $sales_amount = $_ [ 1 ] ;
mein $bonus = 0,0 ;
#Bonus berechnen
Wenn ( $Gehalt > 10000 )
{
$Bonus = $sales_amount* 0,15 ;
}
elsif ( $Gehalt > 7000 )
{
$Bonus = $sales_amount* 0,10 ;
}
anders
{
$Bonus = $sales_amount* 0,05 ;
}
#Den berechneten Bonus zurückgeben
zurückkehren $Bonus ;
}
1 ;
Importieren Sie ein Modul in ein Perl-Skript:
Erstellen Sie eine Perl-Datei mit dem folgenden Skript, das das zuvor erstellte Modul „Bonus“ importiert, um den Bonusbetrag eines Mitarbeiters basierend auf dem Gehalt und dem Umsatzbetrag zu berechnen, die im Skript zugewiesen sind.
#!/usr/bin/perlverwenden Sie streng ;
verwenden Warnungen ;
Verwenden Sie 5.34.0 ;
Bonus nutzen ;
#Variablen initialisieren
mein $name = „Mir Sabbir“ ;
mein Gehalt = 60000 ;
mein $sal_amount = 9700 ;
#Unterprogramm vom Modul aufrufen
mein $bonus = Bonus::calculate_bonus ( $Gehalt , $sal_amount ) ;
mein $salary_with_bonus = $Gehalt + $Bonus ;
#Drucken Sie die Mitarbeiterinformationen basierend auf den Verkäufen
sagen 'Mitarbeiterdetails: \N ' ;
sagen „Name: $name“ ;
sagen „Gehalt: $Gehalt“ ;
sagen „Gehalt(mit Bonus): $salary_with_bonus“ ;
Ausgabe:
Nach der Ausführung des Skripts erscheint die folgende Ausgabe. Hier das „-I“. Option muss zum Zeitpunkt der Ausführung des Skripts verwendet werden, um das benutzerdefinierte importierte Modul herauszufinden:
Beispiel 3: Verwendung des benutzerdefinierten Moduls mit „Require“
Die Funktion „require“ ist eine weitere Möglichkeit, die Module im Perl-Skript zu importieren und wird in diesem Beispiel gezeigt. Das zuvor erstellte Modul „Bonus“ wird über die Funktion „require“ in das Skript importiert. Die Gehalts- und Umsatzwerte werden in diesem Skript vom Benutzer übernommen. Der andere Teil des Skripts ähnelt dem vorherigen Beispiel.
#!/usr/bin/perlverwenden Sie streng ;
verwenden Warnungen ;
Verwenden Sie 5.34.0 ;
Bonus erforderlich ;
#Nehmen Sie Eingaben vom Benutzer entgegen
sagen „Geben Sie den Namen des Mitarbeiters ein:“ ;
kauen ( mein $name = <> ) ;
sagen „Gehalt eingeben:“ ;
kauen ( mein Gehalt = <> ) ;
sagen „Geben Sie den Verkaufsbetrag ein:“ ;
kauen ( mein $sal_amount = <> ) ;
#Unterprogramm vom Modul aufrufen
mein $bonus = Bonus::calculate_bonus ( $Gehalt , $sal_amount ) ;
mein $salary_with_bonus = $Gehalt + $Bonus ;
#Drucken Sie die Mitarbeiterinformationen basierend auf den Verkäufen
sagen 'Mitarbeiterdetails: \N ' ;
sagen „Name: $name“ ;
sagen „Gehalt: $Gehalt“ ;
sagen „Gehalt(mit Bonus): $salary_with_bonus“ ;
Ausgabe:
Nach der Ausführung des Skripts erscheint folgende Ausgabe:
Abschluss
Die Verwendung sowohl integrierter als auch benutzerdefinierter Module in Perl wird in diesem Tutorial anhand einfacher Beispiele gezeigt.