==================================包package=========================== package mypack; 包文件的其始语句 此语句定义一个名为mypack的包,从此以后定义的所有变量和sub的名字都存贮在该包关联的符号表中,直到遇到另一个package语句为止。
包文件――包是面向对象的概念
#!/usr/bin/perl package xxx; package指令创建“类”;
sub ... 创建sub就是创建“类”的“方法” sub ... sub ...
1; 包文件结尾要retrun 1
|
包(类)引用:
&mypack'printval();
|
在包mypack外调用包内sub
|
$mypack'line=10; or $mypack::line=10;
|
在包mypack外调用包内变量
perl5中建议$mypack::var 单引号引用的方式仍然支持,但将来的版本中未必支持 |
perl文件缺省包――main包
#!/usr/bin/perl
$i=0;
sub gotest { … }
|
等价 |
#!/usr/bin/perl package main; $i=0;
sub gotest { … }
|
如果在程序里package了其它的包,当你想切换回去使用缺省的符号表,可以重新指定package main; 这样,接下来的程序就好象从没定义过包一样
包文件和模块文件都是.pm 其中模块文件,文件名必须与package 名相同
在程序里可以随时在包间来回切换
1: #!/usr/local/bin/perl 2: 3: package pack1; 4: $var = 26; 5: package pack2; 6: $var = 34; 7: package pack1; 8: print ("$varn");
|
$ ./tip.pl 26 $
|
在Perl 5中,可以用package; 指定无当前包,这时,所有的变量必须明确指出所属包名,否则报错
package; $var = 21;
|
#error - no current package |
改正
package; $mypack::var = 21;
|
包造成的私有变量和方法:保证包的变量不可在其它地方使用,这样的数据即为私有数据。
1 : package privpack; 2 : $valtoprint = 46; 3 : 4 : package main; 5 : # This function is the link to the outside world. 6 : sub printval { 7 : &privpack'printval(); 8 : } 9 : 10: package privpack; 11: sub printval { 12: print ("$valtoprintn"); 只有同一个包中,才能“直接”调用此变量,其他包中调用此变量要带::前缀或切换package ... 13: } 14: 15: package main;
16: 1;
|
=============================================模块===============================
包package和模块module有什么不同? 创建包并将之存在同名的文件中,就是模块。
模块的创建和使用
- 创建包文件,要求文件名为”包名.pm”(和里面的package “包名”同名)
vi file1.pm #!/usr/local/bin/perl package file1;
|
require Exporter; @ISA = qw(Exporter);
|
sub 赋值给数组@EXPORT数组后,就能被其他文件调用,否则,在模块中定义但没有赋给数组@EXPORT的sub都是私有的,只能在模块内部调用
@EXPORT_OK 定义能被其他文件调用的变量(全局变量),不在这个数组中的变量也是私有变量,则出不了模块文件。
@EXPORT = qw(readfile checkfile gotest); # @EXPORT_OK = qw($myvar1 $myvar2);
|
sub readfile{ my(@tmp)=@_; my($line); open (MYFILE,$tmp[0]) || die ("Could not open file"); while ($line=<MYFILE>) { print $line; } }
sub checkfile{ my(@tmp)=@_; open (MYFILE,$tmp[0]) || die ("Could not open file"); my($line,$pattern,$lamp); $pattern=$tmp[1]; $lamp=0; while (chomp($line=<MYFILE>)) { if($line!~/$pattern/) { print "[$line ] :this line is wrong formatn"; $lamp=1; } } if($lamp) { print "n",$tmp[2],"n";}
close(MYFILE); }
sub gotest{ my(@tmp)=@_;
open (MYFILE,$newline); while ($line=<MYFILE>) { $line=~ tr/a-zA-Z//s; print "good n"; print "$line is :$line"; print "$&; is : $&","n"; }
close(MYFILE); }
|
模块文件必须先cp到perl的库目录下,才能被use
[macg@localhost perltest]$ ls testdir file1.pl file1.pm test1 [macg@localhost perltest]$ su Password: [root@localhost perltest]# cp testdir/file1.pm /usr/lib/perl5/5.8.6/
[root@localhost perltest]# exit exit
|
[macg@localhost perltest]$ vi tip.pl #!/usr/bin/perl use file1; use 模块
$file="/home/macg/perltest/gogo"; $pattern="^d+.d+.d+.d+$"; &readfile($file); 直接调用模块中的sub print "-----------------------------------------n";
$pattern="^[0-9a-z]+[t ]+d+.d+.d+.d+$";
$message="example:hostname1 10.10.20.2"; &checkfile($file,$message);
|
[macg@localhost perltest]$ ./tip.pl host1 202.106.0.20 host2 9.89.9.1 host3 10.0.23.6 11.0.25.9 host5 12.0.1.0as ----------------------------------------- [11.0.25.9 ] :this line is wrong format [host5 12.0.1.0as ] :this line is wrong format
example:hostname1 10.10.20.2
|
.pm文件不仅放在perl工作库目录,其实放在当前目录,也可以直接use
vi tip.pl #!/usr/bin/perl package main; use file1;
|
[root@localhost perltest]# rm /usr/lib/perl5/5.8.6/file1.pm rm: remove regular file `/usr/lib/perl5/5.8.6/file1.pm'? y
[macg@localhost perltest]$ ls 当前目录中 file1.pm gogo newdir newtest test testdir tip.pl
|
[macg@localhost perltest]$ ./tip.pl host1 202.106.0.20 host2 9.89.9.1 host3 10.0.23.6
|
@INC对use命令没用,它只服务于require命令,use命令直接去访问perl模块目录(比如/usr/lib/perl5/5.8.6/)
预定义模块的导入和导出
Perl 5提供了许多有用的预定义模块,可以用use导入和no语句取消。 integer
使用整数运算 Diagnostics
输出较多的诊断信息(警告) English
允许英文名用作系统变量的别名 Env
导入环境变量的Perl模块 POSIX
POSIX标准(IEEE 1003.1)的Perl接口
Socket
装载C语言的套接字处理机制 一个导入模块和取消导入的例子:
1: #!/usr/local/bin/perl 2: 3: use integer; 4: $result = 2.4 + 2.4; integer模块要求所有数字运算基于整数,浮点数在运算前均被转化为整数。 5: print ("$resultn"); 6: 7: no integer; 8: $result = 2.4 + 2.4; 9: print ("$resultn");
|
$./tip.pl 4 4.8 $
|
Perl文档中有完整的预定义模块列表。
use 官方模块
[root@localhost perltest]# ls -F /usr/lib/perl5/5.8.6/File Basename.pm CheckTree.pm Compare.pm Copy.pm DosGlob.pm Find.pm Path.pm Spec/ Spec.pm stat.pm Temp.pm
[root@localhost perltest]# ls -F /usr/lib/perl5/5.8.6/CGI Apache.pm Carp.pm Cookie.pm eg/ Fast.pm Pretty.pm Push.pm Switch.pm Util.pm
|
#!/usr/bin/perl chomp($file=<>); chomp($file2=<>); &gotest($file,$file2);
sub gotest{ my(@tmp)=@_; use File::Copy;File::Copy即/usr/lib/perl5/5.8.6/File/Copy.pm
copy($tmp[0],$tmp[1]); }
|
[macg@localhost perltest]$ ./tip.pl test newtest
[macg@localhost perltest]$ ls newtest test testdir tip.pl
|
perldoc 查询官方模块的用法
[macg@localhost perltest]$ ls /usr/lib/perl5/5.8.6 abbrev.pl bigrat.pm DB.pm Fatal.pm I18N NEXT shellwords.pl Thread.pm AnyDBM_File.pm blib.pm Devel fields.pm i386-linux-thread-multi NEXT.pm sigtrap.pm Tie assert.pl bytes_heavy.pl diagnostics.pm File if.pm open2.pl sort.pm |
|