发布时间：2013-08-18 11:31:46

#!/usr/bin/perlwhile (<DATA>) { if(/[0-9]{4}-[0-9]{1,2}-[0-9]{2}/){  $min_date="2013-9-28";  $max_date="2013-10-03";  print "$_" if(&com_date($&,$min_date)>=0&&&com_date($&,$max_date)<=0); }}sub com_date{ @d0=split /-/,$_[0]; @d1=split /-/.........【阅读全文】