| 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"; } #------------------- 追加する部分(ここまで) ---------------------------
|