| FKです。
本人さんがお見えにならないのに話を進めてしまうのも何ですが・・・(^_^;)
■No8709に返信(りゅういちさんの記事)
> ■No8706に返信(xさんの記事)
> これは _T_ の前にタブが入っているからだとおもいます。
> > print<<"xxx"
> このように数行やる場合は
> 閉じる際の xxx は行頭からはじまり改行で終わってなければなりません
ヒアドキュメントってやつですね。
りゅういちさんカキコの通り、終端文字列を置く行には終端文字列以外のスペース等
の文字は一切書いてはいけませんって事ですね。
自分の環境でちょっと動作確認しましたけど、今度は &time_ 呼び出しでNGになって
しまいますね。。。
なので、元々ibbs.cgiに記述されている以下のサブルーチンをran_サブルーチンを閉
じた後にでもコピーして追加してしまえばそれらしいものが動くのではないですかね？
(私のPC環境ではとりあえず動きましたよ)
#------------------- 追加する部分(ここから) ---------------------------
# [時刻取得]
# -> 時刻を取得します(time_)
sub time_ {
if($_[0]){$Time=$_[0];}else{$Time=time;}
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($Time);
$year=$year+1900;
$mon++;
if($mon < 10){$mon ="0$mon"; }
if($mday < 10){$mday="0$mday";}
if($hour < 10){$hour="0$hour";}
if($min < 10){$min ="0$min"; }
if($sec < 10){$sec ="0$sec"; }
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
$date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec";
}
#------------------- 追加する部分(ここまで) ---------------------------
|
