#!/usr/bin/perl



($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$day=$mday;



print "day $day hour $hour
";



if($day == 7){$town_day = 1;

}elsif($day == 14){$town_day = 1;

}elsif($day == 21){$town_day = 1;

}elsif($day == 28){$town_day = 1;

}else{$town_day= 0;}

if($time_day ==

0){&B_ERR("该文件可运行时间为每个月7号14号21号28号的9点至21点。");}



if($hour>=9 && $hour<= 21){$time_hour = 1;

}else{$time_hour = 0;}

if($time_hour ==

0){&B_ERR("该文件可运行时间为每个月7号14号21号28号的9点至21点。");}



sub B_ERR{

    print shift;

    print "
";

    }

如果你不介意我对你的程序大动干戈的话,我想你可以试试这段代码:

#!/usr/bin/perl



($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$day=$mday;



print "day $day hour $hour
";



$time_day=0;

if(!($day % 7)){$time_day = 1;}

if(!$time_day){&B_ERR("该文件可运行时间为每个月7号14号21号28号的9点至21点。");}



$time_hour=0;

if($hour>=9 && $hour<= 21){$time_hour = 1;}

if(!$time_hour){&B_ERR("该文件可运行时间为每个月7号14号21号28号的9点至21点。");}



sub B_ERR{

    print shift;

    print "
";

    }