Sintaksis:
Sintaks fungsi “memberkati” diberikan sebagai berikut. Fungsi ini dapat digunakan dengan satu argumen atau dua argumen. Biasanya, fungsi ini digunakan dengan dua argumen dimana argumen pertama adalah variabel referensi dan argumen kedua adalah nama kelas yang direferensikan oleh argumen pertama. Ketika digunakan dengan satu nilai argumen, variabel referensi mengacu pada paket saat ini.
memberkati ref
atau
memberkati ref , nama kelas
Berbagai Contoh Fungsi Bless()
Penggunaan fungsi berkat() dalam berbagai cara ditunjukkan pada bagian tutorial ini.
Contoh 1: Menggunakan Kelas dan Objek Sederhana
Dalam contoh ini, paket bernama “Book” berisi subrutin yang bekerja seperti metode konstruktor kelas. Di sini, fungsi “bless” digunakan untuk menghubungkan variabel dengan nama kelas yang diberikan pada saat memanggil metode Init().
#!/usr/bin/Perl
gunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
#Tentukan paketnya
paket Buku ;
#Tentukan konstruktor
di bawah Init
{
#Inisialisasi nama kelas
$namakelas saya = menggeser ;
#Inisialisasi variabel
$variabel saya = {
'Nama Buku' => menggeser ,
'Nama Penulis' => menggeser ,
'Tahun Diterbitkan' => menggeser ,
'Harga' => menggeser
} ;
#Atur referensi dengan referensi
memberkati $variabel , $namakelas ;
#Kembalikan variabel referensi
kembali $variabel ;
}
#Buat objek kelas
$bookObj saya = Buku Init ( 'Belajar Perl' , 'Randal L. Schwartz' , 1993 , Empat. Lima ) ;
#Cetak nilai variabel kelas
mengatakan 'Detail buku:' ;
mengatakan ' \N Nama Buku: $bookObj->{'BookName'}' ;
mengatakan 'Nama Penulis: $bookObj->{'AuthorName'}' ;
mengatakan 'Tahun Penerbitan: $bookObj->{'PublishedYear'}' ;
mengatakan 'Harga: \$ $bookObj->{'Harga'}' ;
Keluaran:
Output berikut muncul setelah menjalankan skrip:
Contoh 2: Menggunakan Kelas dan Objek dengan Banyak Metode
Dalam contoh ini, paket bernama “Produk” berisi dua metode. Salah satu metodenya adalah Init() yang digunakan untuk menginisialisasi variabel yang diperlukan dan merujuk ke variabel dengan nama kelas menggunakan fungsi “bless”. Metode lain yaitu calcul_price() digunakan untuk menghitung harga diskon produk.
#!/usr/bin/Perlgunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
#Tentukan paketnya
paket Produk ;
$variabel saya = { } ;
#Tentukan konstruktor
di bawah Init
{
#Inisialisasi nama kelas
$namakelas saya = menggeser ;
#Inisialisasi variabel
$variabel = {
'Pengenal' => menggeser ,
'Nama' => menggeser ,
'Harga' => menggeser
} ;
#Atur referensi dengan referensi
memberkati $variabel , $namakelas ;
#Kembalikan variabel referensi
kembali $variabel ;
}
#Deklarasikan metode untuk menghitung harga diskon
sub hitung_harga
{
$harga_diskon saya = $variabel- > { 'Harga' } - $variabel- > { 'Harga' } * 0,1 ;
mengatakan 'Harga Diskon: \$ $harga_diskon' ;
}
#Buat objek kelas
$proObj saya = Produk Init ( '6745' , 'monitor Dell' , lima puluh ) ;
#Cetak nilai variabel kelas
mengatakan 'Informasi produk setelah jam 10 \% diskon: ' ;
mengatakan ' \N ID: $proObj->{'Id'}' ;
mengatakan 'Nama: $proObj->{'Nama'}' ;
mengatakan 'Harga asli: \$ $proObj->{'Harga'}' ;
#Panggil metode objek
$proObj- > hitung_harga ( ) ;
Keluaran:
Output berikut muncul setelah menjalankan skrip:
Contoh 3: Menggunakan Kelas dengan Membuat Modul
Dalam contoh ini, modul Perl yang ditentukan pengguna dibuat dalam file terpisah bernama “CalPower.pm” di mana fungsi “bless” digunakan. Buat file ini dengan skrip Perl berikut. Modul ini menghitung “x N “ dimana nilai “x” dan “n” disediakan dari skrip Perl tempat modul ini diimpor.
#!/usr/bin/Perlgunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
#Tentukan nama paket
paket CalPower ;
#Tentukan konstruktor
di bawah Init
{
$namakelas saya = menggeser ;
$var saya =
{
nomor => menggeser ,
kekuatan => menggeser
} ;
memberkati $var , $namakelas ;
kembali $var ;
}
#Tentukan metode untuk menghitung nilai daya
sub Hitung
{
$var saya = menggeser ;
$hasil saya = $var- > { 'nomor' } ;
untuk ( $i saya = 1 ; $i < $var- > { 'kekuatan' } ; $i++ )
{
$hasil = $var- > { 'nomor' } * $hasil ;
}
kembali $hasil ;
}
Buat file Perl dengan script berikut dimana modul “CalPower” diimpor untuk menghitung daya berdasarkan nilai input yang diambil dari pengguna.
#!/usr/bin/Perlgunakan ketat ;
menggunakan peringatan ;
gunakan 5.34.0 ;
menggunakan CalPower ;
#Ambil nilai dasar
mencetak 'Masukkan nilai x:' ;
mengunyah ( $x saya = <> ) ;
#Ambil kekuatan vale
mencetak 'Masukkan nilai n:' ;
mengunyah ( $n saya = <> ) ;
#Buat objek kelas
$Obj saya = Mulai CalPower ( $x , $n ) ;
#Cetak nilai daya yang dihitung
mencetak '$x pangkat $n adalah ' ;
ucapkan $Obj- > Menghitung ( ) ;
Keluaran:
Output berikut muncul setelah menjalankan skrip:
Kesimpulan
Penggunaan fungsi “bless” di Perl ditunjukkan dalam tutorial ini dengan membuat paket di file Perl yang sama dan membuat modul di file berbeda.