use POSIX 'strftime';
use POSIX 'strftime';
print strftime "%Y%m%d\n", localtime;
こう書くと年月日が出るじゃないですか。
この日付けに7を足す事ってできます???
変なやつ以外の方にお聞きします。 ...単発スレ立てなきゃ答えてあげるんだけどね。
---------------------終了-------------------- >>3
は偽者です。
かってに1と名乗らないでください。 単発スレは煽られるだけです。
今後質問は専用スレでしてください。
#!perl
use POSIX qw(strftime);
print strftime "%Y %m %d\n", localtime(time + 60 * 60 * 24 * 7);
__END__ >>5
それ位誰でもわかりますよ
POSIX形式のデータを7日進めたいんですよね
意味分かります?? …こいつ…(いや落ち着け、俺)
薄学故POSIX形式のデータというのが分からないが、こうか?
#!/usr/bin/perl
use POSIX qw(strftime);
my $t = strftime "%Y%m%d", localtime();
$t + 7;
print "$t\n";
__END__ なるほど。確かに>>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__
満足したらさっさと消えてくれ。 俺の偽者さん。
もう落ち付いて下さい。
すいません。俺があんな質問からはじめたので。。。 >166 名前:名無しさん@お腹いっぱい。 :02/01/04 16:48 ID:ZcIQHoBD
>KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか???
>ID:ZcIQHoBD
君は何がしたいの?
憂さ晴らしなら他に適当な板が有るよ 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
そんな事より即効で文句言うてめぇの方がガキだ。
# マルチしないのが一番の近道だと思うのだが どっちにしてもここは人少ないからゆっくり待った方が良いよ
改造なら改造のスレッドが有ったはずだし・・・ ↑ 正月から粘着煽りですか :-)
# 神様、このアホに永遠の眠りを与えてあげてください そんな祈りが届くと思うのか?
そんな事よりも神がいるとでも思っているのか?バカが。