Perl Modüllerinin Farklı Örnekleri
Yerleşik Perl modüllerini ve kullanıcı tanımlı modülleri kullanma yöntemleri eğitimin bu bölümünde gösterilmektedir.
Örnek 1: Yerleşik Modülü Kullanma
Bu örnekte Perl'ün üç yerleşik modülünün kullanımı gösterilmektedir. Bunlar “katı”, “uyarılar” ve “5.34.0”dır. 'Strict' modülü, Perl betiklerini yazmak için farklı türdeki kısıtlamaları etkinleştirmek için kullanılır. Örneğin, eğer bu modül betikte kullanılıyorsa, “my” anahtar sözcüğü olmadan hiçbir değişken bildirilemez. “Uyarılar” modülü, kodlayıcının hatayı anlamasına yardımcı olan betiği çalıştırdıktan sonra farklı türdeki uyarı mesajlarını görüntülemek için kullanılır. Bu modülün farklı özelliklerinin script içerisinde kullanılabilmesi için “5.34.0” modülü kullanılmaktadır. Mesajların satırsonu ile yazdırılması için kullanılan “say” fonksiyonu bu modülün özelliğidir.
#!/usr/bin/Perl
#Kodlama için kısıtlamayı etkinleştir
katı kullan ;
#Hata için uyarı mesajını görüntüle
kullanmak uyarılar ;
#Farklı hizmetleri etkinleştir
5.34.0'ı kullan ;
#'Sıkı' modül için 'my' anahtar sözcüğünün kullanılması zorunludur
benim $dilim = 'Perl' ;
#'Söyle' özelliğinin kullanımını etkinleştirin
söylemek '$dil programlamayı öğrenin.' ;
Çıktı:
Betiği çalıştırdıktan sonra aşağıdaki çıktı görünür:
Örnek 2: Kullanıcı Tanımlı Modülün Kullanımı
Perl kullanıcıları “.pm” uzantılı bir dosya oluşturarak kendi modüllerini belirli bir amaç için oluşturabilirler. Bu örnekte kullanıcı tanımlı bir modül oluşturuluyor ve bu modül başka bir Perl betiğinde “use” anahtar sözcüğü kullanılarak kullanılıyor.
Kullanıcı Tanımlı Bir Modül Oluşturun:
Aşağıdaki script ile “Bonus.pm” isimli bir dosya oluşturun. Burada modül olduğunu belirtmek için “package” anahtar kelimesi kullanılmıştır. Bu modül, çalışanın maaşına ve satış tutarına göre ikramiyesini hesaplayan bir alt program içerir. Bu modülün kullanıldığı Perl betiğinden iki argüman değeri iletilir. İlk argüman maaşı, ikinci argüman ise satış tutarını içerir. Maaş 10000'den fazla ise ikramiye satış tutarının %15'idir. Maaş 7000'den fazla ise ikramiye satış tutarının %10'udur. Maaş 10000'den az ise ikramiye satış tutarının %5'idir. “1;” True değerini döndürmek için modülün sonunda kullanılır. Aksi halde bir hata yazdırılır.
Bonus.pm
#!/usr/bin/Perlkatı kullan ;
kullanmak uyarılar ;
5.34.0'ı kullan ;
paket Bonusu ;
#Bonus hesaplamak için alt program bildirin
alt hesaplama_bonus
{
# Değişkenleri başlat
benim $maaşım = $_ [ 0 ] ;
benim $sales_amount'um = $_ [ 1 ] ;
benim $bonum = 0,0 ;
#Bonus hesapla
eğer ( $maaş > 10000 )
{
$bonus = $satış_amount* 0,15 ;
}
Elsif ( $maaş > 7000 )
{
$bonus = $satış_amount* 0.10 ;
}
başka
{
$bonus = $satış_amount* 0,05 ;
}
#Hesaplanan bonusu iade edin
geri dönmek $bonus ;
}
1 ;
Bir Perl Komut Dosyasında Bir Modülü İçe Aktarın:
Bir çalışanın prim tutarını, komut dosyasında atanan maaş ve satış tutarına göre hesaplamak için daha önce oluşturulan 'Bonus' modülünü içe aktaran, aşağıdaki komut dosyasıyla bir Perl dosyası oluşturun.
#!/usr/bin/Perlkatı kullan ;
kullanmak uyarılar ;
5.34.0'ı kullan ;
Bonus'u kullan ;
#Değişkenleri başlat
benim $adım = 'Mir Sabbir' ;
benim $maaşım = 60000 ;
benim $sal_amount'um = 9700 ;
#Modülden altprogramı çağır
benim $bonum = Bonus::calculate_bonus ( $maaş , $sal_amount ) ;
benim $salary_with_bonus'um = $maaş + $bonus ;
#Satışlara göre çalışan bilgilerini yazdır
söylemek 'Çalışan bilgileri: \N ' ;
söylemek 'İsim: $isim' ;
söylemek 'Maaş: $maaş' ;
söylemek 'Maaş(bonuslu): $salary_with_bonus' ;
Çıktı:
Betiği çalıştırdıktan sonra aşağıdaki çıktı görünür. Burada “-I.” Kullanıcı tanımlı içe aktarılan modülü bulmak için betiğin yürütülmesi sırasında seçeneğin kullanılması gerekir:
Örnek 3: “Require” Kullanılarak Kullanıcı Tanımlı Modülün Kullanılması
“Require” işlevi, Perl betiğindeki modülleri içe aktarmanın başka bir yoludur ve bu örnekte gösterilmektedir. Daha önce oluşturulan 'Bonus' modülü, 'require' işlevi kullanılarak betiğe aktarılır. Bu scriptte maaş ve satış tutarı değerleri kullanıcıdan alınır. Komut dosyasının diğer kısmı önceki örneğe benzer.
#!/usr/bin/Perlkatı kullan ;
kullanmak uyarılar ;
5.34.0'ı kullan ;
Bonus gerektirir ;
#Kullanıcıdan girdi al
söylemek 'Çalışan adını girin:' ;
parçalamak ( benim $adım = <> ) ;
söylemek 'Maaşı girin:' ;
parçalamak ( benim $maaşım = <> ) ;
söylemek 'Satış tutarını girin:' ;
parçalamak ( benim $sal_amount'um = <> ) ;
#Modülden altprogramı çağır
benim $bonum = Bonus::calculate_bonus ( $maaş , $sal_amount ) ;
benim $salary_with_bonus'um = $maaş + $bonus ;
#Satışlara göre çalışan bilgilerini yazdır
söylemek 'Çalışan bilgileri: \N ' ;
söylemek 'İsim: $isim' ;
söylemek 'Maaş: $maaş' ;
söylemek 'Maaş(bonuslu): $salary_with_bonus' ;
Çıktı:
Betiği çalıştırdıktan sonra aşağıdaki çıktı görünür:
Çözüm
Perl'deki hem yerleşik hem de kullanıcı tanımlı modüllerin kullanımı bu eğitimde basit örnekler kullanılarak gösterilmektedir.