#!/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);
结果:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。