Verschillende voorbeelden van Perl-modules
De methoden voor het gebruik van de ingebouwde Perl-modules en door de gebruiker gedefinieerde modules worden in dit deel van de zelfstudie getoond.
Voorbeeld 1: Gebruik van de ingebouwde module
In dit voorbeeld wordt het gebruik van drie ingebouwde Perl-modules getoond. Dit zijn “strikt”, “waarschuwingen” en “5.34.0”. De “strikte” module wordt gebruikt om de verschillende soorten beperkingen in te schakelen bij het schrijven van de Perl-scripts. Er kan bijvoorbeeld geen enkele variabele worden gedeclareerd zonder het trefwoord “mijn” als deze module in het script wordt gebruikt. De module 'waarschuwingen' wordt gebruikt om de verschillende soorten waarschuwingsberichten weer te geven na het uitvoeren van het script, waardoor de codeur de fout kan begrijpen. De module “5.34.0” wordt gebruikt om de verschillende functies van deze module in het script te gebruiken. De functie “say” die wordt gebruikt om de berichten met een nieuwe regel af te drukken, is een kenmerk van deze module.
#!/usr/bin/perl
#Schakel beperking voor codering in
gebruik strikt ;
#Waarschuwingsbericht voor fouten weergeven
gebruik waarschuwingen ;
#Schakel verschillende services in
gebruik 5.34.0 ;
#Gebruik van het trefwoord 'mijn' is verplicht voor de 'strikte' module
mijn $taal = 'Perl' ;
#Schakel het gebruik van de 'zeg'-functie in
inspraak 'Leer programmeren in $taal.' ;
Uitgang:
De volgende uitvoer verschijnt na het uitvoeren van het script:
Voorbeeld 2: Gebruik van de door de gebruiker gedefinieerde module
De Perl-gebruikers kunnen hun module voor een bepaald doel maken door een bestand te maken met de extensie “.pm”. In dit voorbeeld wordt een door de gebruiker gedefinieerde module gemaakt en deze wordt in een ander Perl-script gebruikt met het trefwoord 'use'.
Maak een door de gebruiker gedefinieerde module:
Maak een bestand met de naam “Bonus.pm” met het volgende script. Hier wordt het trefwoord “pakket” gebruikt om te definiëren dat het een module is. Deze module bevat een subroutine die de bonus van een medewerker berekent op basis van het salaris en het verkoopbedrag. Er worden twee argumentwaarden doorgegeven vanuit het Perl-script waarin deze module wordt gebruikt. Het eerste argument bevat het salaris en het tweede argument bevat het verkoopbedrag. De bonus bedraagt 15% van het verkoopbedrag als het salaris hoger is dan 10.000. De bonus bedraagt 10% van het verkoopbedrag als het salaris hoger is dan 7000. De bonus bedraagt 5% van het verkoopbedrag als het salaris lager is dan 10.000. De “1;” wordt aan het einde van de module gebruikt om true terug te geven. Anders wordt er een fout afgedrukt.
Bonus.pm
#!/usr/bin/perlgebruik strikt ;
gebruik waarschuwingen ;
gebruik 5.34.0 ;
pakket Bonus ;
#Declare subroutine om de bonus te berekenen
sub berekenen_bonus
{
# Initialiseer de variabelen
mijn $salaris = $_ [ 0 ] ;
mijn $sales_amount = $_ [ 1 ] ;
mijn $bonus = 0,0 ;
#Bereken bonus
als ( $salaris > 10000 )
{
$bonus = $verkoopbedrag* 0,15 ;
}
elsif ( $salaris > 7000 )
{
$bonus = $verkoopbedrag* 0,10 ;
}
anders
{
$bonus = $verkoopbedrag* 0,05 ;
}
#Retourneer de berekende bonus
opbrengst $bonus ;
}
1 ;
Importeer een module in een Perl-script:
Maak een Perl-bestand met het volgende script dat de eerder gemaakte module “Bonus” importeert om het bonusbedrag van een werknemer te berekenen op basis van het salaris en het verkoopbedrag dat in het script is toegewezen.
#!/usr/bin/perlgebruik strikt ;
gebruik waarschuwingen ;
gebruik 5.34.0 ;
gebruik Bonus ;
#Initialiseer variabelen
mijn $naam = 'Mir Sabbir' ;
mijn $salaris = 60000 ;
mijn $sal_amount = 9700 ;
#Bel de subroutine vanuit de module
mijn $bonus = Bonus::calculate_bonus ( $salaris , $sal_bedrag ) ;
mijn $salaris_met_bonus = $salaris + $bonus ;
#Druk de werknemersinformatie af op basis van de omzet
inspraak 'Werknemergegevens: \N ' ;
inspraak 'Naam: $naam' ;
inspraak 'Salaris: $salaris' ;
inspraak 'Salaris(met bonus): $salaris_met_bonus' ;
Uitgang:
De volgende uitvoer verschijnt na het uitvoeren van het script. Hier de ‘-ik’. optie moet worden gebruikt op het moment dat het script wordt uitgevoerd om de door de gebruiker gedefinieerde geïmporteerde module te achterhalen:
Voorbeeld 3: De door de gebruiker gedefinieerde module gebruiken met “Vereisen”
De functie “require” is een andere manier om de modules in het Perl-script te importeren en wordt in dit voorbeeld getoond. De eerder gemaakte “Bonus” -module wordt in het script geïmporteerd met behulp van de functie “vereisen”. De waarden voor salaris en verkoopbedrag worden in dit script van de gebruiker overgenomen. Het andere deel van het script is vergelijkbaar met het vorige voorbeeld.
#!/usr/bin/perlgebruik strikt ;
gebruik waarschuwingen ;
gebruik 5.34.0 ;
Bonus nodig ;
#Neem input van de gebruiker
inspraak 'Voer de naam van de werknemer in:' ;
kauw ( mijn $naam = <> ) ;
inspraak 'Voer het salaris in:' ;
kauw ( mijn $salaris = <> ) ;
inspraak 'Voer het verkoopbedrag in:' ;
kauw ( mijn $sal_amount = <> ) ;
#Bel de subroutine vanuit de module
mijn $bonus = Bonus::calculate_bonus ( $salaris , $sal_bedrag ) ;
mijn $salaris_met_bonus = $salaris + $bonus ;
#Druk de werknemersinformatie af op basis van de omzet
inspraak 'Werknemergegevens: \N ' ;
inspraak 'Naam: $naam' ;
inspraak 'Salaris: $salaris' ;
inspraak 'Salaris(met bonus): $salaris_met_bonus' ;
Uitgang:
De volgende uitvoer verschijnt na het uitvoeren van het script:
Conclusie
Het gebruik van zowel ingebouwde als door de gebruiker gedefinieerde modules in Perl wordt in deze zelfstudie aan de hand van eenvoudige voorbeelden getoond.