★三　【スクリプト改造工房 PART 9 】　★三

★三　【スクリプト� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

235:nobodyさん
 07/03/13 09:00:16 
>>234 
そこまでできたならperl板行った方が… 
正規表現で 
 
^DoCoMo.* (.*)\(.+$ 
で\\1をとればいいんじゃないかな。

236:nobodyさん
 07/03/13 13:23:35 
【.　 CGI名 　.】　nicky.cgi  
【配布先URL】　ttp://www.din.or.jp/~raelian/ReadMeNicky.html 
【ヘルプ内容】　 
同日に記事を二つ以上作成すると、デフォルトでは後に作成したほうが上に来ます。 
それを後に作成したほうを前に作成した記事の下に来るようにしたいです。 
よろしくお願いします。

237:nobodyさん
 07/03/13 17:28:48 
>>235 
ありがとうございます。 
web製作板から誘導されてきたもので。 
箇所を書きます。できればここにその形で修正を施してくれればありがたいです。

238:nobodyさん
 07/03/13 17:29:36 
#------------------------------------------------- 
#  時間取得 
#------------------------------------------------- 
sub get_time { 
 local($date,@week); 
 
 $ENV{'TZ'} = "JST-9"; 
 local($min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[1..6]; 
 @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); 
 
 # 日時のフォーマット 
 if ($whatsnew) { 
  $date = sprintf("%04d-%02d-%02d (%s)", 
    $year+1900,$mon+1,$mday,$week[$wday]); 
 } else { 
  $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d", 
    $year+1900,$mon+1,$mday,$week[$wday],$hour,$min); 
 
        # UA記録 
        my $ua = $ENV{'HTTP_USER_AGENT'}; 
 
 if ($ua =~ /^L-mode/) { 
 $ua = 'L-mode'; 
 } elsif ($ua =~ /^Mozilla/){ 
 $ua = 'PC'; 
 } 
 
        $date .= " $ua"; 
        # UA記録終了 
 } 
 $date;}

次ページ