#!/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);
结果: