Contoh Berbeza Modul Perl
Kaedah menggunakan modul Perl terbina dalam dan modul yang ditentukan pengguna ditunjukkan dalam bahagian tutorial ini.
Contoh 1: Menggunakan Modul Terbina Dalam
Dalam contoh ini, penggunaan tiga modul terbina dalam Perl ditunjukkan. Ini adalah 'ketat', 'amaran', dan '5.34.0'. Modul 'ketat' digunakan untuk membolehkan pelbagai jenis sekatan menulis skrip Perl. Sebagai contoh, tiada pembolehubah boleh diisytiharkan tanpa kata kunci 'saya' jika modul ini digunakan dalam skrip. Modul 'amaran' digunakan untuk memaparkan pelbagai jenis mesej amaran selepas melaksanakan skrip yang membantu pengekod memahami ralat. Modul '5.34.0' digunakan untuk menggunakan ciri berbeza modul ini dalam skrip. Fungsi 'katakan' yang digunakan untuk mencetak mesej dengan baris baharu ialah ciri modul ini.
#!/usr/bin/perl
#Dayakan sekatan untuk pengekodan
menggunakan ketat ;
#Paparkan mesej amaran untuk ralat
guna amaran ;
#Dayakan perkhidmatan yang berbeza
gunakan 5.34.0 ;
#Penggunaan kata kunci 'saya' adalah wajib untuk modul 'ketat'
bahasa $aku = 'Perl' ;
#Dayakan penggunaan ciri 'katakan'
katakan 'Belajar pengaturcaraan bahasa $.' ;
Pengeluaran:
Output berikut muncul selepas melaksanakan skrip:
Contoh 2: Menggunakan Modul Ditentukan Pengguna
Pengguna Perl boleh mencipta modul mereka untuk tujuan tertentu dengan mencipta fail dengan sambungan '.pm'. Dalam contoh ini, modul yang ditentukan pengguna dibuat dan ia digunakan dalam skrip Perl lain menggunakan kata kunci 'gunakan'.
Buat Modul Ditentukan Pengguna:
Buat fail bernama 'Bonus.pm' dengan skrip berikut. Di sini, kata kunci 'pakej' digunakan untuk menentukan bahawa ia adalah modul. Modul ini mengandungi subrutin yang mengira bonus pekerja berdasarkan gaji dan jumlah jualan. Dua nilai hujah dihantar daripada skrip Perl di mana modul ini digunakan. Hujah pertama mengandungi gaji dan hujah kedua mengandungi jumlah jualan. Bonus ialah 15% daripada jumlah jualan jika gaji melebihi 10000. Bonus ialah 10% daripada jumlah jualan jika gaji melebihi 7000. Bonus ialah 5% daripada jumlah jualan jika gaji kurang daripada 10000 '1;' digunakan pada penghujung modul untuk mengembalikan benar. Jika tidak, ralat akan dicetak.
Bonus.pm
#!/usr/bin/perlmenggunakan ketat ;
guna amaran ;
gunakan 5.34.0 ;
Pakej Bonus ;
#Isytiharkan subrutin untuk mengira bonus
sub hitung_bonus
{
# Mulakan pembolehubah
$gaji saya = $_ [ 0 ] ;
$jumlah_jualan saya = $_ [ 1 ] ;
$bonus saya = 0.0 ;
#Kira bonus
jika ( $gaji > 10000 )
{
$bonus = $jumlah_jualan* 0.15 ;
}
elsif ( $gaji > 7000 )
{
$bonus = $jumlah_jualan* 0.10 ;
}
lain
{
$bonus = $jumlah_jualan* 0.05 ;
}
#Kembalikan bonus yang dikira
kembali $bonus ;
}
1 ;
Import Modul dalam Skrip Perl:
Cipta fail Perl dengan skrip berikut yang mengimport modul 'Bonus' yang dibuat lebih awal untuk mengira jumlah bonus pekerja berdasarkan gaji dan jumlah jualan yang ditetapkan dalam skrip.
#!/usr/bin/perlmenggunakan ketat ;
guna amaran ;
gunakan 5.34.0 ;
gunakan Bonus ;
#Memulakan pembolehubah
$nama saya = 'Mir Sabbir' ;
$gaji saya = 60000 ;
jumlah $sal saya = 9700 ;
#Panggilan subrutin daripada modul
$bonus saya = Bonus::kira_bonus ( $gaji , $sal_amaun ) ;
$gaji_dengan_bonus saya = $gaji + $bonus ;
#Cetak maklumat pekerja berdasarkan jualan
katakan 'Butiran Pekerja: \n ' ;
katakan 'Nama: $name' ;
katakan 'Gaji: $gaji' ;
katakan 'Gaji(dengan bonus): $gaji_dengan_bonus' ;
Pengeluaran:
Output berikut muncul selepas melaksanakan skrip. Di sini, '-saya.' pilihan perlu digunakan pada masa melaksanakan skrip untuk mengetahui modul import yang ditentukan pengguna:
Contoh 3: Menggunakan Modul Ditentukan Pengguna Menggunakan 'Memerlukan'
Fungsi 'memerlukan' ialah cara lain untuk mengimport modul dalam skrip Perl dan ia ditunjukkan dalam contoh ini. Modul 'Bonus' yang dibuat sebelum ini diimport ke dalam skrip menggunakan fungsi 'memerlukan'. Nilai gaji dan jumlah jualan diambil daripada pengguna dalam skrip ini. Bahagian lain skrip adalah serupa dengan contoh sebelumnya.
#!/usr/bin/perlmenggunakan ketat ;
guna amaran ;
gunakan 5.34.0 ;
memerlukan Bonus ;
#Ambil input daripada pengguna
katakan 'Masukkan nama pekerja:' ;
chomp ( $nama saya = <> ) ;
katakan 'Masukkan gaji:' ;
chomp ( $gaji saya = <> ) ;
katakan 'Masukkan jumlah jualan:' ;
chomp ( jumlah $sal saya = <> ) ;
#Panggilan subrutin daripada modul
$bonus saya = Bonus::kira_bonus ( $gaji , $sal_amaun ) ;
$gaji_dengan_bonus saya = $gaji + $bonus ;
#Cetak maklumat pekerja berdasarkan jualan
katakan 'Butiran Pekerja: \n ' ;
katakan 'Nama: $name' ;
katakan 'Gaji: $gaji' ;
katakan 'Gaji(dengan bonus): $gaji_dengan_bonus' ;
Pengeluaran:
Output berikut muncul selepas melaksanakan skrip:
Kesimpulan
Penggunaan kedua-dua modul terbina dalam dan ditakrifkan pengguna dalam Perl ditunjukkan dalam tutorial ini menggunakan contoh mudah.