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@INC\n";
print GetTimeStampStr();
CreateDirIfNeed("go\\go\\go.txt");
$Bruce::Util::LogFilePath = "$path\\log.txt";
&LogMsg("asfasfadfa");
![](http://hi.csdn.net/attachment/201201/26/0_1327560244y131.gif)