Perl包和模块

  • 内容
  • 相关
小蓝博客收集整理的这篇文章主要介绍了Perl包和模块,小蓝博客小编觉得挺不错的,现在分享给大家,也给大家做个参考。

符号表
  每个包都有自己的一个符号表,它是一个哈希表;关键字是包中的变量名、文件句柄、目录句柄以及子例程,值是typeglob

每个包都有自己的符号表。无论何时使用包声明,都要切换到该包的符号表。从一个包中访问另外一个包的变量,可通过“ 包名 + 双冒号( :: ) + 变量名 " 的方式指定。由于 my 函数赋值的变量不能从其所在的包外面访问,而且它也没有存储在包符号表中,而是存储在为每个子程序所创建的缓冲区里。因此,在使用 "my" 变量时,用户无法通过包的符号表来访问它们,因为它们根本不在那里!

require函数   require 可以导入 Perl 库,然后便可执行其中的例程或代码,它类似于 C 语言中的 #include 。   使用 require 的格式为:require EXPR 。也可以不带参数,此时该函数导入的就是 $_ 变量值。require 导入的库文件要存在于 @INC 所包含的某个路径之中,否则函数将执行失败,并返回类似于下面的信息:  $ ./require.pl  Can't locate hello.pl in @INC (@INC contains: /usr/local/lib/perl5 /usr/local/share/perl5 /usr/lib/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib/perl5 /usr/share/perl5 .) at ./require.pl line 3. 测试代码:  #!/usr/bin/perl  require "pwd.pl";  require "ctime.pl";  &initpwd;                                   #初始化函数,位于 pwd.pl 中  printf "The present working directory is %s\n",$ENV{PWD};  &chdir ("../..");                   #切换目录,该函数位于 pwd.pl 中  printf "The present working directory is %s\n",$ENV{PWD};  $today = &ctime(time);        #获取时间,该函数位于 ctime.pl 中  print "$today"; 复制代码  $ ./require.pl  The present working directory is /home/beyes/perl/package  The present working directory is /home/beyes   如果打开 pwd.pl 或 ctime.pl 这样的库文件时,可能会注意到,库文件中的最后一行语句是 " 1; " 。对于 require 函数来说这是必须的,此时 require 函数将不把文件加载到程序中。我们也可以模仿 pwd.pl 的做法编写自己的库,然后放在相应的正确目录下,这样便可以使用自定义的库了。在使用自定义的库时,也不忘记在最后一行写上 "1;" ,否则会在使用 require 时返回类似的错误提示:xxx.pl did not return a true value at xxx.plx lines 5 。 @INC 数组   @INC 是 Perl 内置的一个特殊数组,它包含指向库例程所在位置的目录路径,如果你包含的库并不在这些目录之下,那么可在命令行中使用 -l 选项开关,这点和 gcc 编译时使用-L和-l选项使用第三方库的行为有些类似。@INC对use命令没用,它只服务于require命令,use命令直接去访问perl模块目录(如/usr/lib/perl5/5.6/) 可以用 perl -V 命令看到 @INC 数组的内容:  $perl -V  ...    @INC:      /usr/local/lib/perl5      /usr/local/share/perl5      /usr/lib/perl5/vendor_perl      /usr/share/perl5/vendor_perl      /usr/lib/perl5      /usr/share/perl5 perl 命令的 -e 选项可以后接命令,这样可以单独的打印出 @INC 的内容:  $ perl -e 'print "@INC\n"'  /usr/local/lib/perl5 /usr/local/share/perl5 /usr/lib/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib/perl5 /usr/share/perl5 .   由上可见,@INC 数组最后一个元素是当前目录,如果我们希望将当前工作目录称为搜索路径中第一个元素,那么可以使用 unshift (@INC,"."); 来完成。 包的概念   单独的命名空间又称为包 (package) 。单独的命名空间意味着,对于命名包中所有的变量,Perl 都持有一个单独的符号表。默认情况下,包内所有的变量都是全局变量,而包机制则允许用户切换命名空间,从而让保重的变量称为私有变量,即使它们在包外拥有相同的名称也可如此。 包的作用域   包的作用域从声明位置开始直到文件末尾,或者是最内层封闭块的末尾,还可以是知道另一个包的声明为止。声明另一个包就用 package 函数。在一个包中引用另一个包中的变量,可以在包名前面加上代表变量数据类型的特殊符号,然后是双冒号和变量名,如:$friend::name 。 在Perl包间切换及包的引用:  #!/usr/bin/perl    @town = qw(china wencheng qinglan);  $friend = "Jasmine";  #在main包中  print "In main: \$friend is $friend\n";  #声明 boy 包,并切换到boy  package boy;  #$name在boy包中的命名空间里,和main中的互不干扰  $name = "Tony";  print "In boy \$name is $name.\n";  #使用main包中的$friend,并进行修改  $main::friend = "Obama";  print "In boy \@town is @::town\n";  #main包是默认包,不需要写出main的名字,用@符号代替main  #切换回main包中  package main;  print "In main: \$name is $name\n";  print "In main: \$main is $boy::name\n";  print "In main: \$friend is $friend.\n"; 运行结果: 复制代码  In main: $friend is Jasmine  In boy $name is Tony.  In boy @town is china wencheng qinglan  In main: $name is  In main: $main is Tony  In main: $friend is Obama. 创建一个包及引用包中的子例程: 复制代码  #!/usr/bin/perl  unshift(@INC,"D:\\perlwork1");  require "average.pl";  print "Enter your midterm scores\n";    @scores=split(' ',<STDIN>);    printf "The average is %.lf.\n",average::ave(@scores);#应用包中ave子例程 创建包  #!/usr/bin/perl  package average  sub ave  {      my (@grades)=@_;      my ($num_of_grades)=$#grades+1;      foreach $grade( @grades )      {          $total +=$grade;      }      $total/$num_of_grades;  }  1; 模块   Perl5中用Perl包来创建模块,方法是创建Perl包并将之存在同名的文件中。例如,名为Mymodult的Perl包存贮在文件Mymodult.pm中(扩展名.pm表示PerlModule)。下例的模块Mymodult含有子程序myfunc1和myfunc2及变量$myvar1和$myvar2。  #!/usr/bin/perl    package  Mymodule;  #定义模块名称 Mymodule.pm  require  Exporter;  #使用Exporter.pm模块将本模块符号导出到另一个包(加载者)  @ISA=qw(Exporter);  #@ISA数组含有本模块需要用到的包名,本模块用到模块Exporter.pm  #@EXPORT列出了从本模块默认导出到模块调用者的子例程。myfunc3不在导出列表(@EXPORT)中,调用者不能直接调用myfunc3。  @EXPORT=qw(myfunc1,myfunc2);   @EXPORT_OK=qw($myvar1$myvar2);        sub myfunc1  {             $myvar1+=1;    }        sub myfunc2  {             $myvar2+=2;    }              sub myfunc3  {             $myvar3+=2;    }  注:.pm文件不仅放在perl工作库目录,其实放在当前目录,也可以直接use

总结

以上是小蓝博客为你收集整理的Perl包和模块全部内容,希望文章能够帮你解决Perl包和模块所遇到的程序开发问题。

如果觉得小蓝博客网站内容还不错,欢迎将小蓝博客网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。

  • 打赏支付宝扫一扫
  • 打赏微信扫一扫
  • 打赏企鹅扫一扫

本文标签:

版权声明:若无特殊注明,本文皆为《小蓝博客》原创,转载请保留文章出处。

本文链接:Perl包和模块 - https://www.nswin.cc/41794.html