Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
今年の日付を作るスクリプト
use strict;
use warnings;
my @days = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
for my $month (1..12) {
for my $day (1..$days[$month - 1]) {
print "2014/$month/$day\n";
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment