![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
文章平均质量分 76
zgcsy1986
这个作者很懒,什么都没留下…
展开
-
perl实例
#!/opt/perl/5.8.0/bin/perl #ident "%W%" $run_time = ×tamp(); #$asof = substr($run_time, 0, 8); $asof = $ARGV[0]; $default_stale_cutoff = $ARGV[1]; $default_stale_cutoff = 30 if $default...原创 2011-04-22 17:55:22 · 153 阅读 · 0 评论 -
perl mail
#!/opt/perl/5.8.0/bin/perl #ident "%W%" # Usage: mail_files -t mailid [ -c mailid ] [ -s subject ] [ -f mailid ] [ -x content_type ] # [-n file_list] [-u file_list] [-b file_list] fi...原创 2011-04-22 18:06:48 · 155 阅读 · 0 评论