毋容置疑,编程的分分合合是很重要的思想。
就像下面的文件一样:
use File::Spec::Functions;
use strict;
################################
################################
# routines for Debug output
#
sub DEBUG_Activate
{
open (DEBUG_CHANNEL , ">&STDOUT") or LOG_MsgExit ("Failed to attempt to open STDERR channel") ;
}
sub DEBUG_Disable
{
open (DEBUG_CHANNEL , File::Spec->devnull() ) or LOG_MsgExit ("Failed to attempt to open NULL device");
}
sub DEBUG_Write
{
print DEBUG_CHANNEL ">>$_[0]\n";
}
sub DEBUG_Close
{
close(DEBUG_CHANNEL);
}
###########################################
###########################################
# Routines for dealing with the logfile
sub LOG_Disable
{
open (LOGFILE, ">&STDOUT") or LOG_MsgExit ("Failed to attempt to open STDOUT device");
DEBUG_Write ("Log messages output will be redirected to STDOUT");
}
sub LOG_Create
{
my $file;
$file=$_[0];
open (LOGFILE,">$file") or LOG_MsgExit("Cannot create the logfile $file");
close(LOGFILE);
DEBUG_Write("Logfile $file has been created");
}
##############################33
# returns 1 if file is writable, otherwise returns 0
# if cannot write, try to create it, and if success, then returns 1
#
sub LOG_IsLOGFILEWritable
{
my $file;
my $k;
$file = $_[0];
if ( -w $file ) { return 1; }
else {
$k = open(LOGFILE,">>$file");
if ($k) { close(LOGFILE); return 1;}
else { return 0; }
}
}
##########################################################
# Activates the channel LOGFILE, so print to this channel
# means write in the specified logfile
sub LOG_Enable
{
my $file;
$file = $_[0];
utime(time(),time(),$file);
open (LOGFILE , ">>$file") or LOG_MsgExit ("Failed to attempt to open the logfile $file");
DEBUG_Write ("Opened the logfile: $file");
}
sub LOG_Close
{
close(LOGFILE);
}
sub LOG_Msg
{
my $t;
$t=localtime();
print LOGFILE "$t : $_[0]\n";
DEBUG_Write ("Logged this alarm...: $_[0]");
}
sub LOG_MsgExit
{
my $t;
$t=localtime();
print LOGFILE "$t : $_[0]\n";
DEBUG_Write("$_[0]");
exit;
}
return 1;
很明显这是一个.pm 的文件, 是.pl的模块,他们的关系就像:
.html - - .css , .pl - - .pm
顿悟了吗
这里有好多的sub 函数,供随时调用(当然这里只举了个关于 logfile 的例子).
每一个sub函数,就相当于一个基本技,在主函数中进行组合,就是组合技,那么你就可以放肆地连招了。
PS:转载请注明出处,作者No. Liu