use POSIX 'strftime';

**名無しさん＠お腹いっぱい。** · 02/01/04 06:13

use POSIX 'strftime';
print strftime "%Y%m%d\n", localtime;
こう書くと年月日が出るじゃないですか。
この日付けに7を足す事ってできます？？？
変なやつ以外の方にお聞きします。

**名無しさん＠お腹いっぱい。** · 02/01/04 06:26

...単発スレ立てなきゃ答えてあげるんだけどね。

---------------------終了--------------------

1 · 02/01/04 11:48

>>2
知らないならレスしないでください。

1 · 02/01/04 12:00

>>3
は偽者です。
かってに1と名乗らないでください。

**名無しさん＠お腹いっぱい。** · 02/01/04 12:08

単発スレは煽られるだけです。
今後質問は専用スレでしてください。

#!perl
use POSIX qw(strftime);
print strftime "%Y %m %d\n", localtime(time + 60 * 60 * 24 * 7);
__END__

1 · 02/01/04 12:26

>>5
それ位誰でもわかりますよ
POSIX形式のデータを7日進めたいんですよね
意味分かります？？

**名無しさん＠お腹いっぱい。** · 02/01/04 12:36

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

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

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

1 · 02/01/04 14:48

‥‥‥‥ﾌﾟｯ

他に知ってる方おられますか？

**名無しさん＠お腹いっぱい。** · 02/01/04 16:28

なるほど。確かに>>7は誤りだった。

#!perl
use POSIX qw(strftime);
my $t = strftime "%Y%m%d", localtime();

use Time::Local;
my($y, $m, $d) = unpack 'A4A2A2', $t;
my $t2 = strftime "%Y%m%d", localtime timelocal(0, 0, 0, $d + 7, $m - 1, $y);

print "$t2\n";
__END__

満足したらさっさと消えてくれ。