perl写日志

#!/usr/bin/perl -w

sub append_log
{
#     ###文件和行号信息
    open (LOG,">>log.txt");
#     print LOG "[$0.";
#     print LOG __LINE__;
#     print LOG "]";
    
    ###内容字段
    $i=0;
    
    foreach $value(@_)
    {
        if ($i == 0)
        {
            print LOG "[";
        }
        elsif ($i == 1)
        {
            print LOG ".";
        }
        elsif ($i == 2)
        {
            print LOG "] ";
        }
        else
        {
            print LOG " ";
        }
        $i++;
        print LOG $value;
    }
    print LOG "n";
    
    close(LOG);
}

1;

上面是head.pl中的内容,在文件test.pl中使用如下:

#!/usr/bin/perl -w

require "head.pl";

append_log($0,__LINE__,"a","b",1,99+3);