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__

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

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

俺の偽者さん。
もう落ち付いて下さい。
すいません。俺があんな質問からはじめたので。。。

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

>166 名前：名無しさん＠お腹いっぱい。：02/01/04 16:48 ID:ZcIQHoBD
>KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？？？

>ID:ZcIQHoBD

君は何がしたいの?
憂さ晴らしなら他に適当な板が有るよ

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

いえ、これとそれとは別件です。

**！=１１** · 02/01/04 17:16

166 名前：名無しさん＠お腹いっぱい。：02/01/04 16:48 ID:ZcIQHoBD
KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？？？

167 名前：名無しさん＠お腹いっぱい。：02/01/04 16:51 ID:???
↑何でマルチすんだよ糞ガキ消えろ

168 名前：名無しさん＠お腹いっぱい。：02/01/04 16:56 ID:ZcIQHoBD
うるせぇ俺は20歳だ。そんだけ気になっとんだ。

169 名前：名無しさん＠お腹いっぱい。：02/01/04 16:57 ID:ZcIQHoBD
そんな事より即効で文句言うてめぇの方がガキだ。

# マルチしないのが一番の近道だと思うのだが

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

あっ削除依頼だしておきましたから。

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

どっちにしてもここは人少ないからゆっくり待った方が良いよ
改造なら改造のスレッドが有ったはずだし･･･

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

>>15
わかったから、仕切り屋ウザイです。