perl 模块化编程实例
发布时间:2020-12-16 00:29:04 所属栏目:大数据 来源:网络整理
导读:1. 在当前目录创建 文件 Bruce目录,下面有Util.pm文件,内容如下: package Bruce::Util;use strict;use Exporter;use File::Path;our @ISA =qw(Exporter);our @EXPORT = qw(GetTimeStampStr CreateDirIfNeed LogMsg);our @EXPORT_OK = qw($LogFilePath);ou
1. 在当前目录创建 文件 Bruce目录,下面有Util.pm文件,内容如下: package Bruce::Util; use strict; use Exporter; use File::Path; our @ISA =qw(Exporter); our @EXPORT = qw(GetTimeStampStr CreateDirIfNeed LogMsg); our @EXPORT_OK = qw($LogFilePath); our @version = 1.0; our $LogFilePath; sub GetTimeStampStr() { my $timestr = localtime(time()); return $timestr; } sub CreateDirIfNeed { my $Dir = shift; if (-e $Dir and -d $Dir) { return 0; } print("makepath $Dir"); eval {mkpath($Dir)}; if($@) { print("Make path [$Dir] failed:$@"); return -1; } return 0; } sub LogMsg() { my $Param1 = shift; my $Str = &GetTimeStampStr()." -- ".$Param1; `echo $Str>>$LogFilePath`; } 1; __END__ 2. 在当前目录创建测试文件test.pl,内容如下: #!perl -w use strict; use File::Basename; BEGIN{ push(@INC,dirname(__FILE__)); } use Bruce::Util; #必须放到BEGIN后面 print __FILE__; print "nThe Dir is:"; my $path= dirname(__FILE__); print $path; print "n@INCn"; print GetTimeStampStr(); CreateDirIfNeed("gogogo.txt"); $Bruce::Util::LogFilePath = "$pathlog.txt"; &LogMsg("asfasfadfa"); (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |