Cú pháp:
Cú pháp của hàm “ban phước” được đưa ra như sau. Hàm này có thể được sử dụng với một hoặc hai đối số. Thông thường, hàm này được sử dụng với hai đối số trong đó đối số thứ nhất là biến tham chiếu và đối số thứ hai là tên lớp được tham chiếu bởi đối số thứ nhất. Khi nó được sử dụng với một giá trị đối số, biến tham chiếu sẽ đề cập đến gói hiện tại.
ban phước cho trọng tài
hoặc
ban phước cho trọng tài , tên lớp
Các ví dụ khác nhau về hàm Bless()
Việc sử dụng hàm phước() theo nhiều cách được trình bày trong phần hướng dẫn này.
Ví dụ 1: Sử dụng Lớp và Đối tượng Đơn giản
Trong ví dụ này, gói có tên “Book” chứa một chương trình con hoạt động giống như phương thức khởi tạo của lớp. Ở đây, hàm “bless” được sử dụng để liên kết các biến với tên lớp được cung cấp tại thời điểm gọi phương thức init().
#!/usr/bin/perl
Sử dụng nghiêm ngặt ;
sử dụng cảnh báo ;
sử dụng 5.34.0 ;
#Xác định gói
gói sách ;
#Định nghĩa hàm tạo
dưới ban đầu
{
#Khởi tạo tên lớp
$className của tôi = sự thay đổi ;
#Khởi tạo các biến
biến $ của tôi = {
'Tên sách' => sự thay đổi ,
'Tên tác giả' => sự thay đổi ,
'Năm xuất bản' => sự thay đổi ,
'Giá' => sự thay đổi
} ;
#Đặt tham chiếu với người giới thiệu
ban phước cho các biến $ , $className ;
#Trả về biến tham chiếu
trở lại biến $ ;
}
#Tạo một đối tượng của lớp
cuốn sách $ của tôiObj = Sách ban đầu ( 'Học Perl' , 'Randal L. Schwartz' , 1993 , Bốn năm ) ;
#In giá trị của các biến lớp
nói 'Chi tiết sách:' ;
nói ' \N Tên sách: $bookObj->{'BookName'}' ;
nói 'Tên tác giả: $bookObj->{'AuthorName'}' ;
nói 'Năm xuất bản: $bookObj->{'PublishedYear'}' ;
nói 'Giá: \$ $bookObj->{'Giá'}' ;
Đầu ra:
Đầu ra sau xuất hiện sau khi thực thi tập lệnh:
Ví dụ 2: Sử dụng Lớp và Đối tượng với Nhiều Phương thức
Trong ví dụ này, gói có tên “Sản phẩm” chứa hai phương thức. Một phương thức là Init() được sử dụng để khởi tạo các biến cần thiết và tham chiếu đến các biến có tên lớp bằng cách sử dụng hàm “bless”. Một phương pháp khác là Calculate_price() được sử dụng để tính giá chiết khấu của sản phẩm.
#!/usr/bin/perlSử dụng nghiêm ngặt ;
sử dụng cảnh báo ;
sử dụng 5.34.0 ;
#Xác định gói
gói sản phẩm ;
biến $ của tôi = { } ;
#Định nghĩa hàm tạo
dưới ban đầu
{
#Khởi tạo tên lớp
$className của tôi = sự thay đổi ;
#Khởi tạo các biến
biến $ = {
'Nhận dạng' => sự thay đổi ,
'Tên' => sự thay đổi ,
'Giá' => sự thay đổi
} ;
#Đặt tham chiếu với người giới thiệu
ban phước cho các biến $ , $className ;
#Trả về biến tham chiếu
trở lại biến $ ;
}
#Khai báo phương pháp tính giá chiết khấu
tính_giá phụ
{
$discount_price của tôi = $biến- > { 'Giá' } - $biến- > { 'Giá' } * 0,1 ;
nói 'Giảm giá: \$ $discount_price' ;
}
#Tạo một đối tượng của lớp
$proObj của tôi = Sản phẩm ban đầu ( '6745' , 'màn hình Dell' , năm mươi ) ;
#In giá trị của các biến lớp
nói 'Thông tin sản phẩm sau 10 \% giảm giá: ' ;
nói ' \N Id: $proObj->{'Id'}' ;
nói 'Tên: $proObj->{'Name'}' ;
nói 'Giá gốc: \$ $proObj->{'Giá'}' ;
#Gọi phương thức đối tượng
$proObj- > tính_giá ( ) ;
Đầu ra:
Đầu ra sau xuất hiện sau khi thực thi tập lệnh:
Ví dụ 3: Sử dụng lớp bằng cách tạo mô-đun
Trong ví dụ này, mô-đun Perl do người dùng xác định được tạo trong một tệp riêng biệt có tên “CalPower.pm” trong đó chức năng “bless” được sử dụng. Tạo tệp này với tập lệnh Perl sau. Mô-đun này tính toán “x N “ trong đó các giá trị của “x” và “n” được cung cấp từ tập lệnh Perl nơi mô-đun này được nhập.
#!/usr/bin/perlSử dụng nghiêm ngặt ;
sử dụng cảnh báo ;
sử dụng 5.34.0 ;
#Xác định tên gói
gói CalPower ;
#Định nghĩa hàm tạo
dưới ban đầu
{
$className của tôi = sự thay đổi ;
$var của tôi =
{
con số => sự thay đổi ,
quyền lực => sự thay đổi
} ;
ban phước cho $var , $className ;
trở lại $var ;
}
#Xác định phương pháp tính giá trị công suất
phụ Tính toán
{
$var của tôi = sự thay đổi ;
kết quả $ của tôi = $var- > { 'con số' } ;
vì ( $i của tôi = 1 ; $i < $var- > { 'quyền lực' } ; $i++ )
{
kết quả $ = $var- > { 'con số' } * kết quả $ ;
}
trở lại kết quả $ ;
}
Tạo tệp Perl có tập lệnh sau trong đó mô-đun “CalPower” được nhập để tính toán công suất dựa trên giá trị đầu vào được lấy từ người dùng.
#!/usr/bin/perlSử dụng nghiêm ngặt ;
sử dụng cảnh báo ;
sử dụng 5.34.0 ;
sử dụng CalPower ;
#Lấy giá trị cơ sở
in 'Nhập giá trị của x:' ;
nhai ( $ x của tôi = <> ) ;
#Lấy lấy giá điện
in 'Nhập giá trị của n:' ;
nhai ( $n của tôi = <> ) ;
#Tạo một đối tượng của lớp
$Obj của tôi = Khởi tạo CalPower ( $x , $n ) ;
#In giá trị công suất tính toán
in '$x lũy thừa $n là ' ;
nói $Obj- > Tính toán ( ) ;
Đầu ra:
Đầu ra sau xuất hiện sau khi thực thi tập lệnh:
Phần kết luận
Việc sử dụng hàm “ban phước” trong Perl được trình bày trong hướng dẫn này bằng cách tạo một gói trong cùng một tệp Perl và tạo một mô-đun trong một tệp khác.