☆三 【 スクリプト改造工房 PART 9 】 ★三at PHP☆三 【 スクリプト改造工房 PART 9 】 ★三 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト707:nobodyさん 12/07/04 23:36:35.57 .net >>692 まだいる？ なんとな～く考えてみたんだけど。 708:nobodyさん 12/07/05 17:51:25.85 .net >>694 今帰宅しました。 まだいます 709:nobodyさん 12/07/05 18:47:40.44 .net エラーの内容なりどう上手く行かないのか書かないと 710:694 12/07/05 21:35:22.58 .net >>692,695 なんとな～くだからうまくいかなかったらごめんね。 # ニックネーム(マッチ) my $word = $FORM{'HANDLE'}; $word =~ s/\xA1\xA1/ /g; my @word2 = split(/\s+/,$word); my $myflag = 0; if ($FORM{'HANDLE'} ne '') { foreach my $word3 (@word2) { if ($HANDLE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$word3/i) { $myflag = 1; last; } else { ; } } } if ($FORM{'HANDLE'} ne '' && $myflag == 0) { next; } # 検索終了処理 711:nobodyさん 12/07/06 17:12:03.61 .net >>697 今、帰宅しました。 >>694さんのコードを試した処サーバーがResponseエラーになったのですが myを外して見たところ上手くいきました。(もしかしてこのコードがperl4だったりするんでしょうか？) 無事出力成功しました。ありがとうございます 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch