Perl

プログラム [#i5d771b2]

 use POSIX qw(strftime);
 my $today = strftime "%Y%m%d", localtime;
 print $today;