1. do:
1)形式:
do 'filename';
说明:
这里filename需要添加单引号,否则会出错;
filename可以为任何后缀的,甚至没有后缀,不要求是pl或者pm等。
2)关于do的理解:
do 'filename'
首先需要读入filename的文件(如果读入失败,返回undef而且会设置$!变量);
如果读入成功,然后对filename读入的语句进行编译(如果无法编译或者编译错误,会返回undef而且设置错误信息到$@变量);
如果编译也成功,do会执行filename中的语句,最终返回最有一个表达式的值。
简短表达do 'filename'的功能,就是能够将filename中的文字全部加载到当前文件中。
3)理解do的用法:
a. 将文件拆分:
main.pl:
复制代码 代码如下:
use strict;
do 'seperate'; #文件可以以任何后缀命名甚至没有后缀;
seperate:
print "Hello from seperate file! :-)";
b. 可以在seperate中定义函数,然后在当前文件中调用:
main.pl
复制代码 代码如下:
#!/usr/bin/perl
use strict;
do 'seperate';
show();
seperate:
sub show{
print "Hello from seperate file! :-)";
}
c. 可以在seperate中定义package,然后在当前文件中调用:
main.pl
复制代码 代码如下:
#!/usr/bin/perl
use strict;
do 'seperate';
Show::show_sentence();
seperate:
package Show;
sub show_sentence(){
print "Hello from seperate file! :-)";
}
1;
__END__
#都不需要文
件名必须与package的名称相同,而且seperate都不需要pm后缀。
从上面的例子,很容易得到,使用do可以方便地实现文件包含。
更多参看http://perldoc.perl.org/functions/do.html
2. require
参看http://perldoc.perl.org/functions/require.html
1)形式:
require 'filename';
require "filename";
这两种相同,而且和do的使用方法都类似;
require Module;
如果不加单引号或者双引号的话,后面的Module将被解析为Perl的模块即.pm文件,然后根据@INC Array中搜索Module.pm文件。首先在当前目录下搜索Module.pm的文件(用户自定义的),如果找不到再去Perl的 (@INC contains: C:/Perl/site/lib C:/Perl/lib .)寻找。
如果Module中出现::,如require Foo::Bar; 则会被替换为Foo/Bar.pm
2)关于require使用的解释:
如果使用require 'filename'或者require "filename"来包含文件的话,使用方法和do完全近似;
如果使用require Module的话,则需要定义Module.pm的文件而且文件中的package要以Module来命名该模块。
main.pl
复制代码 代码如下:
#!C:\perl\bin\inperl -w
use strict;
require Show;
Show::show_header();
Show.pm
#Show.pm
复制代码 代码如下:
package Show;
sub show_header(){
print "This is the header! ";
return 0;
}
sub show_footer(){
print "This is the footer! ";
return 0;
}
1;
__END__
3. use
参看http://perldoc.perl.org/functions/use.html
1)形式:
use Module;
use只能够使用模块,而且和require的用法相似,需要Module.pm的文件,而且文件中的package需要已Module来命名该模块。
main.pl
复制代码 代码如下:
#!C:\perl\bin\perl -w
use strict;
use Show;
Show::show_header();
Show.pm
复制代码 代码如下:
#Show.pm
package Show;
sub show_header(){
print "This is the header! ";
return 0;
}
sub show_footer(){
print "This is the footer! ";
return 0;
}
1;
__END__
2)require和use的区别:
require:
do the things at run time; (运行时加载)
use:
do the things at compile time; (编译时加载)
4. perlmod - Perl modules (packages)
参考http://perldoc.perl.org/perlmod.html
1) 示例:
复制代码 代码如下:
#Show.pm
package Show;
sub show_header(){
print "This is the header! /n";
return 0;
}
sub show_footer(){
print "This is the footer! /n";
return 0;
}
1;
__END__
2)
一般文件名需要和package名称相同,这里为Show;
可以定义变量和函数;
不要忘记1;
以及最后的__END__
3)
在别的文件中,使用require或者use使用模块的时候:
复制代码 代码如下:
use Show;
#require Show;
Show::show_header();
5. Perl的函数定义及调用:
复制代码 代码如下:
sub fun_name(){
#...
}
1) 如果定义在使用之前,在使用的时候直接fun_name();即可
2)如果定义在使用之后,之前使用的时候需要使用&fun_name();来调用函数。
6.
小结:
综上,文件包含可以提高代码的复用性,在Perl是实现文件包含可以才去两条路:
1)使用do或者require(带引号的)那种方式;
2)使用require Module或者use Module的模块方式;
两者均可。
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]