http://snippets.dzone.com/posts Fri, 08 Aug 2008 18:46:48 GMT DZone Snippets: date code http://snippets.dzone.com/posts/show/4506 // Simple output of current date in perl <br /> <br /><code> <br /> my @day_name = ("Sun.","Mon.","Tue.","Wed.","Thu.","Fri.","Sat."); <br /> my ($sec,$min,$hour,$mday,$mon,$year,$wday); <br /> ($sec,$min,$hour,$mday,$mon,$year,$wday,undef,undef)=localtime(time()); $year+=1900;$mon++; <br /> $report_date=sprintf("%s %04d.%02d.%02d %02d:%02d",$day_name[$wday],$year,$mon,$mday,$hour,$min); <br /></code> Fri, 07 Sep 2007 07:55:52 GMT http://snippets.dzone.com/posts/show/4506 bouffon69 (Sylvain Le Courtois)