use POSIX 'strftime';

[0007 名無しさん＠お腹いっぱい。 02/01/04 12:36 ID:???]

…こいつ…(いや落ち着け、俺)

薄学故POSIX形式のデータというのが分からないが、こうか？

#!/usr/bin/perl
use POSIX qw(strftime);
my $t = strftime "%Y%m%d", localtime();
$t + 7;
print "$t\n";
__END__