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