Last Friday of each month: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 249: | Line 249: | ||
2012-11-30 |
2012-11-30 |
||
2012-12-28</pre> |
2012-12-28</pre> |
||
=={{header|Perl}}== |
|||
<lang Perl>#!/usr/bin/perl -w |
|||
use strict ; |
|||
use DateTime ; |
|||
use feature qw( say ) ; |
|||
foreach my $month ( 1..12 ) { |
|||
my $dt = DateTime->last_day_of_month( year => $ARGV[ 0 ] , month => $month ) ; |
|||
while ( $dt->day_of_week != 5 ) { |
|||
$dt->subtract( days => 1 ) ; |
|||
} |
|||
say $dt->ymd ; |
|||
}</lang> |
|||
Output: |
|||
<pre>2012-01-27 |
|||
2012-02-24 |
|||
2012-03-30 |
|||
2012-04-27 |
|||
2012-05-25 |
|||
2012-06-29 |
|||
2012-07-27 |
|||
2012-08-31 |
|||
2012-09-28 |
|||
2012-10-26 |
|||
2012-11-30 |
|||
2012-12-28 |
|||
</pre> |
|||
=={{header|Pike}}== |
=={{header|Pike}}== |