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;

#!/usr/bin/perl -w

require "head.pl";

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