(現在 過去ログ3 を表示中)

HOME HELP 新着記事 トピック表示 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■7308 / inTopicNo.1)  逆アクセスランキング排除指定について
  
□投稿者/ kaito -(2003/05/28(Wed) 02:32:13)
    はじめまして。
    逆アクセスランキングの排除指定に逆の機能、、
    排除指定したアドレスのみ受け付けるように
    したいのですが、どうもうまくいきません・・・
    簡単にif文などを逆にすればできるとふんでいたのですが、
    まったくできませんでした。。。
    どなたかアドバイスを御願いします。ぺこ <(_ _)>

    foreach $murl (@murl){
    $murl=~ s/\n//g;
    if($access=~ /$murl/){
    if(-e $l_f){rmdir($l_f);}
    if($SSI){$b_s=$ARGV[1]; &html_;}else{&gif_;}
    exit;
    }

    このあたりかな〜と勝手に思いこんでいるのですが・・・
    数時間格闘。。できませんでした。。

    perlは素人で、本を片手に改造している程度の知識です。
    よろしく御願いします。

引用返信 [メール受信/OFF] 削除キー/
■7315 / inTopicNo.2)  Re[1]: 逆アクセスランキング排除指定について
□投稿者/ りゅういち -(2003/05/28(Wed) 15:27:00)
http://www.cj-c.com/
    No7308に返信(kaitoさんの記事)
    > 排除指定したアドレスのみ受け付けるように
    > したいのですが、どうもうまくいきません・・・
    > 簡単にif文などを逆にすればできるとふんでいたのですが、
    > まったくできませんでした。。。
    > このあたりかな〜と勝手に思いこんでいるのですが・・・

    $MatchFlag=0;#フラグ
    foreach $murl (@murl){
    $murl=~ s/\n//g;
    if($access=~ /$murl/){$MatchFlag=1; last;}#OKだったらフラグを立てて抜ける
    }
    if($MatchFlag==0){#フラグがたってなかったら終わり
    if(-e $l_f){rmdir($l_f);}
    if($SSI){$b_s=$ARGV[1]; &html_;}else{&gif_;}
    exit;
    }
    でどうでしょうか?
引用返信 [メール受信/OFF] 削除キー/
■7321 / inTopicNo.3)  (済)ありがとうございました。
□投稿者/ kaito -(2003/05/28(Wed) 23:47:47)
    テストでは安定的に動作しています。

    数時間悩んだ挙句、、繰り返しに問題が?とは
    やっとこさ少しかすったのですがまったくできず、
    ||で一つ一つやろうとしてました・・・f(^_^; 

    lastと言うのでぬけることができるんですね♪

    ほんとうに
    どうもありがとうございました。ぺこ <(_ _)>

解決済み!
引用返信 [メール受信/OFF] 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Pass/

HOME HELP 新着記事 トピック表示 検索 過去ログ

- Child Tree -