47、Perl模块与CGI编程：从基础到实践

Perl模块与CGI编程：从基础到实践

1. 时间显示子程序 show_times

在编程过程中，我们常常需要记录程序的运行时间， show_times 子程序就能很好地完成这个任务。以下是它的代码：

sub show_times {
    # argument is program's start time
    my $stime=shift  or
        die "$0: show_times(): bad argument";
    my $etime=time;                 # current (ending) time
    my $dtime=$etime - $stime;      # elapsed time

    printf "\UTime:%2d:%02d HR:MN ",
        int ( ( $dtime / 3600 ) + .5 ),
        ( ( $dtime % 3600 ) / 60 ) + .5;
    print "\nSTART: ", scalar localtime $stime,
        "  END: ", scalar localtime $etime;
}

这个子程序的主要功能是打印程序的开始时间、结束时间以及运行时长。它接收程序的开始时间作为参数，通过 time 函数获取当前（结束）时间，计算出两者的差值，得到程序的运行时间。然后将运行时间转换为小时和分钟的格式进行输出，同时打印出开始时