珀尔 |模块

Perl 中的模块是执行一组编程任务的相关子例程和变量的集合。 Perl 模块是可重用的。综合 Perl 归档网络 (CPAN) 上提供了各种 Perl 模块。这些模块涵盖了广泛的类别，例如网络、CGI、XML 处理、数据库接口等。

创建 Perl 模块

模块名称必须与包的名称相同，并应以 .pm 扩展名结尾。

示例：计算器.pm

package Calculator;
  
# Defining sub-routine for Multiplication
sub multiplication
{
    # Initializing Variables a & b
    $a = $_[0];
    $b = $_[1];
      
    # Performing the operation
    $a = $a * $b;
      
    # Function to print the Sum
    print "\n***Multiplication is $a";
}
  
# Defining sub-routine for Division
sub division
{
    # Initializing Variables a & b
    $a = $_[0];
    $b = $_[1];
      
    # Performing the operation
    $a = $a / $b;
      
    # Function to print the answer
    print "\n***Division is $a";
}
1;

这里，文件的名称是“Calculator.pm”，存储在 Calculator 目录中。注意 1;写在代码的最后，向解释器返回一个真值。 Perl 接受任何为真而不是 1

导入和使用 Perl 模块
要导入这个计算器模块，我们使用 require 或 use 函数。要从模块访问函数或变量，请使用 ::。这是一个演示相同的示例：

示例：Test.pl

#!/usr/bin/perl
  
# Using the Package 'Calculator'
use Calculator;
  
print "Enter two numbers to multiply";
  
# Defining values to the variables
$a = 5;
$b = 10;
  
# Subroutine call
Calculator::multiplication($a, $b);
  
print "\nEnter two numbers to divide";
  
# Defining values to the variables
$a = 45;
$b = 5;
  
# Subroutine call
Calculator::division($a, $b);

输出：

使用模块中的变量

来自不同包的变量可以通过在使用前声明它们来使用。以下示例演示了这一点
示例：Message.pm

#!/usr/bin/perl
  
package Message;
  
# Variable Creation
$username;
  
# Defining subroutine
sub Hello
{
  print "Hello $username\n";
}
1;

访问模块的 Perl 文件如下
示例：变量.pl

#!/usr/bin/perl
  
# Using Message.pm package
use Message;
  
# Defining value to variable
$Message::username = "Geeks";
  
# Subroutine call
Message::Hello();

输出：

使用预定义模块
Perl 提供了各种预定义的模块，可以随时在 Perl 程序中使用。
如：“严格”、“警告”等。

例子：

#!/usr/bin/perl
  
use strict;
use warnings;
  
print" Hello This program uses Pre-defined Modules";

输出：

Hello This program uses Pre-defined Modules