perl写日志

#!/usr/bin/perl -w sub append_log { # ###文件和行号信息 open (LOG, ">>log.txt"); # print LOG "[$0."; # print LOG __LINE__; # print LOG "]"; ###内容字段 $i=0; foreach $v

>>阅读原文<<