X



use POSIX 'strftime';
0001名無しさん@お腹いっぱい。垢版02/01/04 06:13ID:???
use POSIX 'strftime';
print strftime "%Y%m%d\n", localtime;
こう書くと年月日が出るじゃないですか。
この日付けに7を足す事ってできます???
変なやつ以外の方にお聞きします。
00031垢版02/01/04 11:48ID:???
>>2
知らないならレスしないでください。
00041垢版02/01/04 12:00ID:???
>>3
は偽者です。
かってに1と名乗らないでください。
0005名無しさん@お腹いっぱい。垢版02/01/04 12:08ID:???
単発スレは煽られるだけです。
今後質問は専用スレでしてください。

#!perl
use POSIX qw(strftime);
print strftime "%Y %m %d\n", localtime(time + 60 * 60 * 24 * 7);
__END__
00061垢版02/01/04 12:26ID:???
>>5
それ位誰でもわかりますよ
POSIX形式のデータを7日進めたいんですよね
意味分かります??
0007名無しさん@お腹いっぱい。垢版02/01/04 12:36ID:???
…こいつ…(いや落ち着け、俺)

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

#!/usr/bin/perl
use POSIX qw(strftime);
my $t = strftime "%Y%m%d", localtime();
$t + 7;
print "$t\n";
__END__
00081垢版02/01/04 14:48ID:???
‥‥‥‥プッ

他に知ってる方おられますか?
0009名無しさん@お腹いっぱい。垢版02/01/04 16:28ID:???
なるほど。確かに>>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__

満足したらさっさと消えてくれ。
0010名無しさん@お腹いっぱい。垢版02/01/04 17:03ID:ZcIQHoBD
俺の偽者さん。
もう落ち付いて下さい。
すいません。俺があんな質問からはじめたので。。。
0011名無しさん@お腹いっぱい。垢版02/01/04 17:12ID:???
>166 名前:名無しさん@お腹いっぱい。 :02/01/04 16:48 ID:ZcIQHoBD
>KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか???

>ID:ZcIQHoBD

君は何がしたいの?
憂さ晴らしなら他に適当な板が有るよ
0012名無しさん@お腹いっぱい。垢版02/01/04 17:13ID:ZcIQHoBD
いえ、これとそれとは別件です。
0013!=11垢版02/01/04 17:16ID:???
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
そんな事より即効で文句言うてめぇの方がガキだ。


# マルチしないのが一番の近道だと思うのだが
0014名無しさん@お腹いっぱい。垢版02/01/04 17:20ID:ZcIQHoBD
あっ削除依頼だしておきましたから。
0018名無しさん@お腹いっぱい。垢版02/01/04 18:07ID:ZcIQHoBD
そんな祈りが届くと思うのか?
そんな事よりも神がいるとでも思っているのか?バカが。
レスを投稿する


ニューススポーツなんでも実況