Perl组合技：sub

最新推荐文章于 2025-04-17 11:42:57 发布

liuweichuan

最新推荐文章于 2025-04-17 11:42:57 发布

阅读量625

点赞数

分类专栏： perl 文章标签： perl file output 编程 null

本文链接：https://blog.youkuaiyun.com/liuweichuan/article/details/7662448

版权

perl 专栏收录该内容

38 篇文章

订阅专栏

毋容置疑，编程的分分合合是很重要的思想。

就像下面的文件一样：

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