Help for this page
my $dt1 = DateTime->now(); my $dt2 = $dt1->clone->subtract( weeks => 1);
#!/usr/bin/perl -w use strict; ... for (@dates) { print $_, $/; }
2017-02-01T00:00:00 2017-02-01T00:00:00 ... 2017-02-01T00:00:00 2017-02-01T00:00:00 2017-02-01T00:00:00
2017-01-02T00:00:00 2017-01-03T00:00:00 ... 2017-01-27T00:00:00 2017-01-30T00:00:00 2017-01-31T00:00:00
www.com | www.net | www.org
No recent polls found