Các ví dụ khác nhau về mô-đun Perl
Các phương pháp sử dụng các mô-đun Perl cài sẵn và các mô-đun do người dùng xác định được trình bày trong phần hướng dẫn này.
Ví dụ 1: Sử dụng Mô-đun tích hợp
Trong ví dụ này, việc sử dụng ba mô-đun cài sẵn của Perl được trình bày. Đây là “nghiêm ngặt”, “cảnh báo” và “5.34.0”. Mô-đun “nghiêm ngặt” được sử dụng để cho phép các loại hạn chế khác nhau viết các tập lệnh Perl. Ví dụ: không thể khai báo biến nào nếu không có từ khóa “my” nếu mô-đun này được sử dụng trong tập lệnh. Mô-đun “cảnh báo” được sử dụng để hiển thị các loại thông báo cảnh báo khác nhau sau khi thực thi tập lệnh giúp người lập trình hiểu được lỗi. Mô-đun “5.34.0” được sử dụng để sử dụng các tính năng khác nhau của mô-đun này trong tập lệnh. Chức năng “say” được sử dụng để in các tin nhắn có dòng mới là tính năng của mô-đun này.
#!/usr/bin/perl
#Enable hạn chế mã hóa
Sử dụng nghiêm ngặt ;
#Hiển thị thông báo cảnh báo lỗi
sử dụng cảnh báo ;
#Kích hoạt các dịch vụ khác nhau
sử dụng 5.34.0 ;
#Việc sử dụng từ khóa 'của tôi' là bắt buộc đối với mô-đun 'nghiêm ngặt'
ngôn ngữ $ của tôi = 'Perl' ;
#Cho phép sử dụng tính năng 'nói'
nói 'Học lập trình ngôn ngữ $.' ;
Đầu ra:
Đầu ra sau xuất hiện sau khi thực thi tập lệnh:
Ví dụ 2: Sử dụng Mô-đun do người dùng xác định
Người dùng Perl có thể tạo mô-đun của họ cho một mục đích cụ thể bằng cách tạo một tệp có phần mở rộng “.pm”. Trong ví dụ này, một mô-đun do người dùng định nghĩa sẽ được tạo và nó được sử dụng trong một tập lệnh Perl khác bằng cách sử dụng từ khóa “use”.
Tạo mô-đun do người dùng xác định:
Tạo một tệp có tên “Bonus.pm” với tập lệnh sau. Ở đây, từ khóa “gói” được sử dụng để xác định rằng đó là một mô-đun. Mô-đun này chứa một chương trình con tính toán tiền thưởng của nhân viên dựa trên tiền lương và doanh số bán hàng. Hai giá trị đối số được truyền từ tập lệnh Perl trong đó mô-đun này được sử dụng. Đối số đầu tiên chứa tiền lương và đối số thứ hai chứa số tiền bán hàng. Thưởng 15% doanh thu nếu lương trên 10000. Thưởng 10% doanh số nếu lương trên 7000. Thưởng 5% doanh số nếu lương dưới 10000 .Số “1;” được sử dụng ở cuối mô-đun để trả về true. Nếu không, sẽ có lỗi được in ra.
Tiền thưởng.pm
#!/usr/bin/perlSử dụng nghiêm ngặt ;
sử dụng cảnh báo ;
sử dụng 5.34.0 ;
gói thưởng ;
#Khai báo chương trình con tính tiền thưởng
tính toán phụ_tiền thưởng
{
# Khởi tạo các biến
mức lương $ của tôi = $_ [ 0 ] ;
số tiền bán hàng của tôi = $_ [ 1 ] ;
$tiền thưởng của tôi = 0,0 ;
#Tính tiền thưởng
nếu như ( $mức lương > 10000 )
{
$tiền thưởng = số tiền bán hàng $* 0,15 ;
}
elsif ( $mức lương > 7000 )
{
$tiền thưởng = số tiền bán hàng $* 0,10 ;
}
khác
{
$tiền thưởng = số tiền bán hàng $* 0,05 ;
}
#Trả lại tiền thưởng đã tính
trở lại $tiền thưởng ;
}
1 ;
Nhập mô-đun vào tập lệnh Perl:
Tạo một tệp Perl với tập lệnh sau để nhập mô-đun “Tiền thưởng” được tạo trước đó để tính số tiền thưởng của nhân viên dựa trên mức lương và số tiền bán hàng được chỉ định trong tập lệnh.
#!/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 tiền thưởng ;
#Khởi tạo biến
tên $ của tôi = 'Mir Sabbir' ;
mức lương $ của tôi = 60000 ;
số tiền_sal_$ của tôi = 9700 ;
#Gọi chương trình con từ mô-đun
$tiền thưởng của tôi = Tiền thưởng::tính_tiền thưởng ( $mức lương , số tiền_sal_$ ) ;
$salary_with_bonus của tôi = $lương + $thưởng ;
#In thông tin nhân viên dựa trên doanh số bán hàng
nói 'Thông tin nhân viên: \N ' ;
nói 'Tên: tên $' ;
nói 'Mức lương: $ lương' ;
nói 'Mức lương(có thưởng): $salary_with_bonus' ;
Đầu ra:
Đầu ra sau xuất hiện sau khi thực thi tập lệnh. Ở đây, “-tôi.” tùy chọn phải được sử dụng tại thời điểm thực thi tập lệnh để tìm ra mô-đun đã nhập do người dùng xác định:
Ví dụ 3: Sử dụng Mô-đun do người dùng xác định bằng cách sử dụng “Yêu cầu”
Hàm “require” là một cách khác để nhập mô-đun vào tập lệnh Perl và nó được hiển thị trong ví dụ này. Mô-đun “Tiền thưởng” đã tạo trước đó sẽ được nhập vào tập lệnh bằng chức năng “yêu cầu”. Giá trị tiền lương và số tiền bán hàng được lấy từ người dùng trong tập lệnh này. Phần còn lại của tập lệnh tương tự như ví dụ trước.
#!/usr/bin/perlSử dụng nghiêm ngặt ;
sử dụng cảnh báo ;
sử dụng 5.34.0 ;
yêu cầu tiền thưởng ;
#Lấy đầu vào từ người dùng
nói 'Nhập tên nhân viên:' ;
nhai ( tên $ của tôi = <> ) ;
nói 'Nhập mức lương:' ;
nhai ( mức lương $ của tôi = <> ) ;
nói 'Nhập số tiền bán hàng:' ;
nhai ( số tiền_sal_$ của tôi = <> ) ;
#Gọi chương trình con từ mô-đun
$tiền thưởng của tôi = Tiền thưởng::tính_tiền thưởng ( $mức lương , số tiền_sal_$ ) ;
$salary_with_bonus của tôi = $lương + $thưởng ;
#In thông tin nhân viên dựa trên doanh số bán hàng
nói 'Thông tin nhân viên: \N ' ;
nói 'Tên: tên $' ;
nói 'Mức lương: $ lương' ;
nói 'Mức lương(có thưởng): $salary_with_bonus' ;
Đầ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 cả mô-đun dựng sẵn và mô-đun do người dùng định nghĩa trong Perl được trình bày trong hướng dẫn này bằng các ví dụ đơn giản.