作业帮 > 综合 > 作业

在perl中如下定义是什么意思

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 16:20:32
在perl中如下定义是什么意思
exec:/vob_site/links/tools_gnu/bin/perl -x $0 ${1+$@}
use strict ;
use English ;
use Log qw(error warn info verbose debug warn_log info_log);
use Error;
use System;
use DBI;
USE POSIX qw(strftime);;
use File::Basename;
use xxx;
use yyy;
这些都是加载模块 (module,pm,perl module ) 的意思
相等於 c 的 include,java 的 import
use strict ;
加载了这个 module 之後,你所有程序中的变数都必须先宣告才能使用,否则会报错并停止执行.
定义变数可以有 local,my 和 our.不过新版本的 perl 里都建议使用 my $x = 123 这形态的宣告
use Log qw(error warn info verbose debug warn_log info_log);
和下面那样,後面加一个 qw ( ...) 这种写法是给你直接调用 module 里的涵数 ( sub / function )
因为加载一个 module 之後,并不意味你能直接调用里面的涵数 ,你可能要先建构一个物件
use Example::Module;
my $x = new Example::Module;
$x -> method_in_example_module( $y,$z );
但 qw ( ...) 之後,你可以直调用 ( 其实不全是,但暂时先这麼理解吧 )
use Clone qw ( clone ) ;
my $x = { x => 1,y => 2 };
my $X = clone $x ;
print $X->{x} ; # 得出 "1"
USE POSIX qw(strftime);;
这句是错的,use POSIX qw(strftime);
其他的就不一一介绍了.你用得著的时候,自然会知道是甚麼意思 =)
再问: 现在就在用 但不是很理解 求帮助 谢谢
再答: use Log; Perl 里面并没有这个 mod, CPAN 也没有. 这应该是你眼前这个代码的作者自己写的 mod. use English; Perl 语言入面有很多, $@, $_, $", $