Berbagai Contoh Modul Perl
Metode penggunaan modul Perl bawaan dan modul yang ditentukan pengguna ditunjukkan di bagian tutorial ini.
Contoh 1: Menggunakan Modul Bawaan
Dalam contoh ini, penggunaan tiga modul bawaan Perl ditampilkan. Ini adalah “ketat”, “peringatan”, dan “5.34.0”. Modul 'ketat' digunakan untuk mengaktifkan berbagai jenis pembatasan untuk menulis skrip Perl. Misalnya, tidak ada variabel yang dapat dideklarasikan tanpa kata kunci “saya” jika modul ini digunakan dalam skrip. Modul “peringatan” digunakan untuk menampilkan berbagai jenis pesan peringatan setelah menjalankan skrip yang membantu pembuat kode memahami kesalahan. Modul “5.34.0” digunakan untuk menggunakan berbagai fitur modul ini dalam skrip. Fungsi “say” yang digunakan untuk mencetak pesan dengan baris baru adalah fitur modul ini.
#!/usr/bin/Perl
#Aktifkan pembatasan untuk pengkodean
gunakan ketat ;
#Tampilkan pesan peringatan untuk kesalahan
menggunakan peringatan ;
#Aktifkan layanan yang berbeda
gunakan 5.34.0 ;
#Penggunaan kata kunci 'saya' adalah wajib untuk modul 'ketat'
$bahasa saya = 'Perl' ;
#Aktifkan penggunaan fitur 'katakan'
mengatakan 'Pelajari $pemrograman bahasa.' ;
Keluaran:
Output berikut muncul setelah menjalankan skrip:
Contoh 2: Menggunakan Modul Buatan Pengguna
Pengguna Perl dapat membuat modul mereka untuk tujuan tertentu dengan membuat file dengan ekstensi “.pm”. Dalam contoh ini, modul yang ditentukan pengguna dibuat dan digunakan dalam skrip Perl lain menggunakan kata kunci “use”.
Buat Modul Buatan Pengguna:
Buat file bernama “Bonus.pm” dengan skrip berikut. Di sini, kata kunci “paket” digunakan untuk mendefinisikan bahwa itu adalah sebuah modul. Modul ini berisi subrutin yang menghitung bonus karyawan berdasarkan gaji dan jumlah penjualan. Dua nilai argumen diteruskan dari skrip Perl yang menggunakan modul ini. Argumen pertama berisi gaji dan argumen kedua berisi jumlah penjualan. Bonus 15% dari jumlah penjualan jika gaji lebih dari 10000. Bonus 10% dari jumlah penjualan jika gaji lebih dari 7000. Bonus 5% dari jumlah penjualan jika gaji kurang dari 10000 .Jumlah “1;” digunakan di akhir modul untuk mengembalikan nilai true. Jika tidak, kesalahan akan dicetak.
Bonus.pm
#!/usr/bin/Perlgunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
bonus paket ;
#Deklarasikan subrutin untuk menghitung bonus
sub hitung_bonus
{
# Inisialisasi variabel
$gaji saya = $_ [ 0 ] ;
$penjualan_jumlah saya = $_ [ 1 ] ;
$bonus saya = 0,0 ;
#Hitung bonus
jika ( $gaji > 10.000 )
{
$bonus = $jumlah_penjualan* 0,15 ;
}
elsif ( $gaji > 7000 )
{
$bonus = $jumlah_penjualan* 0,10 ;
}
kalau tidak
{
$bonus = $jumlah_penjualan* 0,05 ;
}
#Kembalikan bonus yang dihitung
kembali $bonus ;
}
1 ;
Impor Modul dalam Skrip Perl:
Buat file Perl dengan skrip berikut yang mengimpor modul “Bonus” yang dibuat sebelumnya untuk menghitung jumlah bonus seorang karyawan berdasarkan gaji dan jumlah penjualan yang ditetapkan dalam skrip.
#!/usr/bin/Perlgunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
gunakan Bonus ;
#Inisialisasi variabel
$nama saya = 'Mir Sabbir' ;
$gaji saya = 60000 ;
$sal_amount saya = 9700 ;
#Panggil subrutin dari modul
$bonus saya = Bonus::hitung_bonus ( $gaji , $sal_jumlah ) ;
$gaji_dengan_bonus saya = $gaji + $bonus ;
#Cetak informasi karyawan berdasarkan penjualan
mengatakan 'Rincian Karyawan: \N ' ;
mengatakan 'Nama: $nama' ;
mengatakan 'Gaji: $gaji' ;
mengatakan 'Gaji (dengan bonus): $salary_with_bonus' ;
Keluaran:
Output berikut muncul setelah menjalankan skrip. Di sini, “-Aku.” opsi harus digunakan pada saat menjalankan skrip untuk mengetahui modul impor yang ditentukan pengguna:
Contoh 3: Menggunakan Modul Buatan Pengguna Menggunakan “Membutuhkan”
Fungsi “require” adalah cara lain untuk mengimpor modul dalam skrip Perl dan ditunjukkan dalam contoh ini. Modul “Bonus” yang dibuat sebelumnya diimpor ke skrip menggunakan fungsi “wajib”. Nilai gaji dan jumlah penjualan diambil dari pengguna dalam skrip ini. Bagian lain dari skrip ini mirip dengan contoh sebelumnya.
#!/usr/bin/Perlgunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
membutuhkan Bonus ;
#Ambil masukan dari pengguna
mengatakan 'Masukkan nama karyawan:' ;
mengunyah ( $nama saya = <> ) ;
mengatakan 'Masukkan gaji:' ;
mengunyah ( $gaji saya = <> ) ;
mengatakan 'Masukkan jumlah penjualan:' ;
mengunyah ( $sal_amount saya = <> ) ;
#Panggil subrutin dari modul
$bonus saya = Bonus::hitung_bonus ( $gaji , $sal_jumlah ) ;
$gaji_dengan_bonus saya = $gaji + $bonus ;
#Cetak informasi karyawan berdasarkan penjualan
mengatakan 'Rincian Karyawan: \N ' ;
mengatakan 'Nama: $nama' ;
mengatakan 'Gaji: $gaji' ;
mengatakan 'Gaji (dengan bonus): $salary_with_bonus' ;
Keluaran:
Output berikut muncul setelah menjalankan skrip:
Kesimpulan
Penggunaan modul bawaan dan modul yang ditentukan pengguna di Perl ditunjukkan dalam tutorial ini menggunakan contoh sederhana.