982コメント390KB

スクリプト改造工房 Part3

■ このスレッドは過去ログ倉庫に格納されています

0001名無しさん＠お腹いっぱい。

2001/05/02(水) 21:59ID:nr93n3do

「こういうふうにスクリプトを改造したいけどやりかたわかんないよー」
という人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。

前スレ
Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227
＃板移動に伴い「CGI改造工房」→「スクリプト改造工房」に改名

なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？（完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。

0757名無しさん＠お腹いっぱい。

02/01/20 15:15ID:1MChf9kT

あめぞう2000ヘッドラインスクリプト(http://dr.st88.arena.ne.jp/ageru/ageru.html)を
定めた取得範囲の中からリンク（<A HREF="任意のURL">任意の文字列</A>）だけを
切り取るように改造していただけませんか。

http://www.makani.to/akutoku/nneewwss/ のような感じにしたいのですが・・・
取得部分のソースは http://www.geocities.co.jp/SiliconValley-Bay/4472/sock.txt です。

0758infohands

02/01/20 21:49ID:b8L3h3La

みにふろで配布してあるやつならそういう機能うも付いていると思った
http://www.miniflo.com/

0759757

02/01/21 21:02ID:???

infohandsさんレス有り難うございます
リンク先のグングニール？は配布されているものなのですか？
配布場所が見つからなかったのですが・・・

0760名無しさん＠お腹いっぱい。

02/01/22 11:53ID:SF43F0wC

http://mtg.s3.xrea.com/search.txt
の全文検索のCGIなんですけど、これを複数の単語で検索できるように
するにはどうすれば出来ますでしょうか？

0761名無しさん＠お腹いっぱい。

02/01/23 01:20ID:ukicG1Bi

KENT WEBさん⇒http://www.kent-web.com/　の、
JOYFUL NOTE⇒http://nyanko.s6.xrea.com/x/joyful.txt　に、
YY-BOARD⇒http://nyanko.s6.xrea.com/x/yybbs.txt　の様な
アイコンモードを付けたいのですがどうしてもできません。
改造できるならお願いします

0762名無しさん＠お腹いっぱい。

02/01/23 02:00ID:???

>>761
どのようにできないかを書いたら？

0763名無しさん＠お腹いっぱい。

02/01/23 02:02ID:???

見た感じでは、YY-BOARDにClip Boardの機能を付けるだけでしょ。

0764名無しさん＠お腹いっぱい。

02/01/23 09:43ID:cJQKjVsE

>>762
761ですが、どのようにできないか。
YY-BOARDにClip Boardの機能を表す部分をコピペしたらできるかと
甘く考えていたんですが、やっぱり中身は似ている様で全然違うので
どこにどの部分をコピペすればいいやらわからないのです。

0765名無しさん＠お腹いっぱい。

02/01/23 10:34ID:Gdq9JiCf

Perlを使って、それまでhtmlで表示していたページを、CGIで提供しようとしています。
たとえば、[http://test.com/message1000.html]であれば
[http://test.com/message.cgi?number=1000]という風に読み出して表示しています。
ところが、この方法になりますと、いくつかの検索エンジンがクロールしてくれなくなってしまいます。
そこで、新しい２ちゃんねるのread.cgiのように、
[http://test.com/message.cgi/1000/]という風にしたいと思うのですが、
どのようにしたらよいのかわかりません。
これを実現する方法、または、方法が記されているWebなどの情報をお教え下さい。

0766名無しさん＠お腹いっぱい。

02/01/23 14:30ID:???

>>761
足してみた。不具合は知らない。今までのログと互換性は無い。
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/026.txt

0767761

02/01/23 14:47ID:UcJ2smoC

>>766
有難うございます！
でも、、、「呼び出されたURLの表示は拒否されました。」
って出て見れません

0768766

02/01/23 14:54ID:???

コ・ピ・ペ・し・て・飛・べ

0769名無しさん＠お腹いっぱい。

02/01/23 15:01ID:???

お・や・つ・は・パ・ピ・コ

0770名無しさん＠お腹いっぱい。

02/01/23 15:06ID:???

それともあ・た・し？

0771名無しさん＠お腹いっぱい。

02/01/23 15:39ID:???

>768-770
ﾜ・ﾗ・ﾀ

0772某47

02/01/23 15:44ID:???

>765
ｺﾞﾒｿ。何をしたいのか今ひとつ理解できないや。
神の降臨を待たれよ。

0773名無しさん＠お腹いっぱい。

02/01/23 15:50ID:???

>>765
$ENV{'PATH_INFO'}で検索

0774766

02/01/23 16:05ID:50H3/tZ5

>>768
どうも有難うございます。
見れました！今日やってみます！！

0775名無しさん＠お腹いっぱい。

02/01/23 16:10ID:MoeJqUl1

>773
ありがとうございます。大体要領がわかりました。感謝感謝。

0776名無しさん＠お腹いっぱい。

02/01/23 17:03ID:???

http://petitmoni.pos.to/aya/cgi-bin/bbs/index.cgi
↑みたいに書き込むとポイントが入って、特定の言葉は
太字で表示されるような機能を持ってる掲示板（YY-BOARDの改造版で）
http://petitmoni.pos.to/aya/cgi-bin/bbs/shop.cgi
↑みたいにそのポイントでアイコンを変えるようにするCGIを探してます。
っていうか同じのが欲しいです。情報下さい。よろしくお願いします。
かなり探しました。

0777名無しさん＠お腹いっぱい。

02/01/23 17:16ID:???

マルチポストする馬鹿は何も教えてもらえないということをご理解下さい
http://pc.2ch.net/test/read.cgi/php/1003132904/748

0778ナナシンボ

02/01/24 13:05ID:???

えーと、ＣＧＩだけど、なんか質問ある？Part 5 より移転してきました。
Yomi-search で質問なんですけど、
新着情報をTOPページに表示する方法を以前こちらの板で教えて頂いたのですが、
SSIでは無理でした。

どなたか改造してください。
宜しくお願いします。

ttp://ice.prohosting.com/b1link/cgi-bin/yomi.txt
kt.txt

を上げて置きました。
どなたか宜しければご教授ください。

0779名無しさん＠お腹いっぱい。

02/01/24 13:27ID:nUVwgo4z

>778
新着情報だけを吐き出すCGI作って、それをSSIでインクルードした方が良さそうだね。

0780ナナシンボ

02/01/24 13:32ID:yqNzK7tC

むちゃなお願いなんですが、
それ作成して頂けませんでしょうか？

0781ひろゆきと愉快な信者達

02/01/24 13:32ID:???

50 ：参加するカモさん：01/11/30 21:16
28　名前：西村の同級生投稿日： 2001/02/12(金) 10:08
中学の頃クラスでイタズラ電話や下駄箱の靴が紛失する事件が頻発したんだけど
その時、女子の間では「犯人西村」説が跋扈していた。
真相は藪の中だけど、実は私もそう思ってたうちの一人。
証拠もないのに疑いをかけるのは悪い事だと思うけど、西村にはそういう嫌疑を抱かせる
雰囲気があったのも事実。

52 ：参加するカモさん：01/11/30 22:33
５０を読んでも驚かないところが不思議
ふーんて感じ
そういうダーティーなところも含めてひろゆきｶｯｺｲｲ

53 ：参加するカモさん：01/12/01 05:08
オレも５２と同様、１変人として素晴らしいと感じる。
我等変態をナメるな。
ひろゆき擁護者として、間違い無く彼が犯人だったと断言するぞ。

54 ：参加するカモさん：01/12/01 16:47
堂々たる変人ぶりだ、、、

0782板違い

02/01/24 13:49ID:???

板違いです。
http://tmp.2ch.net/kitchen/
こちらからどうぞ。

0783名無しさん＠お腹いっぱい。

02/01/24 14:01ID:yqNzK7tC

あげ

0784名無しさん＠お腹いっぱい。

02/01/24 14:17ID:nUVwgo4z

>780
んー、そうしようかと思ってyomi_search取ってきたけど、
おれこれ苦手だ～(笑)
やっぱ人のスクリプトを読むのって根気いるよね。
誰か、とってもいい人に期待しよう。

0785名無しさん＠お腹いっぱい。

02/01/24 15:10ID:???

yomi_search絡みの相談は
8割方使い方解って無いからなんだよな
作者も大変だこりゃ

0786名無しさん＠お腹いっぱい。

02/01/24 15:55ID:nUVwgo4z

>785
うん、でも、あのスクリプト、肥大化しすぎだよ。
機能ごとにスクリプトわけてrequireするとか、サブルーチン単位で
きっちり機能わけてくれないと、手が出しにくい。
それが狙いかもしれないけど(笑)

0787ナナシンボ

02/01/24 16:02ID:yqNzK7tC

わかりました。
皆様お手数お掛けしました。
ダウンロードまでしてくださってどうもありがとうございました。

0788名無しさん＠お腹いっぱい。

02/01/24 16:40ID:???

俺はかなりまともな部類だと思うぞ　=>　Yomi_Search
どの辺が機能分け出来て無いの?　>786

読むにはコメントが少なすぎる気はしたけど

0789ナナシンボ

02/01/24 17:07ID:???

やはりどなたか改造できる方はおられませんでしょうか。。

0790名無しさん＠お腹いっぱい。

02/01/24 17:20ID:yqNzK7tC

あげ

0791名無しさん＠お腹いっぱい。

02/01/24 17:29ID:???

>>７８９
このスレッド検索してみ
過去にYomiサーチ改造してくれと言って来たのは
大抵設定で済む問題なの
つまり、TopPageをHTML形式にして、そのHTMLからSSIすれば良い訳
でもそれって、設定の話でしょ?
だったら此処で聞くよりFAQ読んだ方が早いと思わないかい?
それともその「新着情報」とやらを書いて欲しいの??

0792名無しさん＠お腹いっぱい。

02/01/24 17:43ID:rUk1r3g1

中央高等学院の従業員「西部」が女子トイレに闖入し
汚物入れを物色して女子生徒の使用済みタンポン・ナプキン等を
個人的に収集しているというのは事実。

中央高等学院では
生徒及びその保護者の個人情報を名簿図書館等に売却しています。
中央高等学院 http://chs-f.com/index.html 中央高等学院福岡校
http://www.chuo-school.ac/

0793ナナシンボ

02/01/24 17:45ID:???

>>791
はい。書いてほしいです。。。
お願いです。
どーしても必要なんです。

0794名無しさん＠お腹いっぱい。

02/01/24 17:55ID:???

#!/usr/bin/perl
print "新着情報";
これで良いか?　ｗ

つーか、そのリクエストで出来る事はこれ位しかにゃい　　（笑
どーしても手軽に実現したいなら、金出してやってもらえ
手間掛けてそれっぽいのを探すか、自分で悩むか、金出すか、
まずどれかを選ぼう

0795ナナシンボ

02/01/24 18:00ID:???

わかりました。。。

0796名無しさん＠お腹いっぱい。

02/01/24 18:13ID:???

サポート気分でみんなでやろうぜ。

0797名無しさん＠お腹いっぱい。

02/01/24 18:31ID:???

>796
分かったから取り合えず自分が何したいのか書けよ
新着情報って何?????????
それが分かったら奇特な人が現われてやってくれるかもね

0798名無しさん＠お腹いっぱい。

02/01/24 18:36ID:nUVwgo4z

>795
がんばれナナシンボ

0799名無しさん＠お腹いっぱい。

02/01/24 18:41ID:nUVwgo4z

>788
クエリ文字列取ったら、クエリ単位でサブルーチン化して欲しい。
さらにいうと、共有部分や分離可能な部分は別のモジュールか
requireで呼び出して、ソースの可読性あげて欲しい。
コメント少ないのはしょうがないとしても、そうやってルーチンの流れを
素直に追えるようになっていれば、だいぶユーザサイドでの
機能追加がしやすい。

0800ナナシンボ

02/01/24 19:34ID:???

あの、皆様なんとか助けて頂けないでしょうか？
宜しくお願いします<(_ _)>

0801名無しさん＠お腹いっぱい。

02/01/24 19:42ID:???

宜しくマンGIGAかお前わ

0802名無しさん＠お腹いっぱい。

02/01/24 19:58ID:yqNzK7tC

あげ

0803名無しさん＠お腹いっぱい。

02/01/24 20:43ID:???

>>800

>>796がやる気みたいだからここに書いてみたらどうでしょ

0804名無しさん＠お腹いっぱい。

02/01/24 21:52ID:???

age

0805ナナシンボ

02/01/24 22:25ID:WUwMo1ER

とりあえず。いろいろと調べたんですが。
HTMLで表示できるのは各カテゴリーのみでRank.cgiやメインスｸﾘﾌﾟﾄﾝ
はHTML表示ができません。

しかし、無理に？Rank.cgiをSSIで

こう記載したら
[an error occurred while processing this directive]
こうでました。
cmd
ではなにも表示されません。

いったいどうすればええんけ？

0806ナナシンボ

02/01/24 22:26ID:WUwMo1ER

すみません。
どうすればいいのでしょうか？

0807名無しさん＠お腹いっぱい。

02/01/24 22:27ID:???

cgiを直接開くと動く？
SSI使える？
指定したアドレス間違ってない？

0808ナナシンボ

02/01/24 22:31ID:WUwMo1ER

CGIを直接指定するとはい。ちゃんと動きます。
SSIは使えるサーバーです。
アドレスは。。。できました!!
成功しました。
アドバイスありがとうございました。

0809ナナシンボ

02/01/24 22:33ID:WUwMo1ER

しかし、新着情報は無理です。。。。

0810名無しさん＠お腹いっぱい。

02/01/25 00:20ID:???

age

0811名無しさん＠お腹いっぱい。

02/01/25 00:48ID:???

>>796
age

0812名無しさん＠お腹いっぱい。

02/01/25 01:37ID:???

age

0813名無しさん＠お腹いっぱい。

02/01/25 08:02ID:???

あげ

0814721

02/01/25 14:33ID:???

>>796
がんばれナナシンボ。

0815名無しさん＠お腹いっぱい。

02/01/25 15:51ID:/7cgUOJj

>809
みんな、誰かのスクリプトを使ってみて、それででてきた
不満や課題を自分で何とかしようとして、そうやってだんだん
プログラム／スクリプティング覚えてきたんだよ。

ナナシンボがんばれ。がんばっていればきっと何とかなる。
質問の仕方も変わってくる。
そしたら、多分どんどんいいアドバイスがもらえるようになってくるよ。

0816名無しさん＠お腹いっぱい。

02/01/25 16:46ID:???

空アゲでスレを消耗されるのはイヤ
質問なら分かる範囲で答えるけどねぇ

0817名無しさん＠お腹いっぱい。

02/01/25 16:49ID:p42dGcu9

同じくyomi-searchなのですが、
トップページをhtml表示にして、各カテゴリの横に登録件数を表示したいのですが
どのようにしたらよいでしょうか。。。

下記URLにありますように、「CGI*(119)」「フリー素材(302)」などの「(登録件数)」をhtmlに表示させてやりたいのです。
http://yomi.pekori.to/s/yomi.cgi?mode=kt&kt=01

カテゴリごとの登録件数を吐き出すcgiを作成して、
それをトップページのshtmlに渡してやれば良いみたいなのですが、cgiの書き方がわからないのです。。。

0818ナナシンボ

02/01/26 05:37ID:i7EWq8IC

んー、やはりプログラム／スクリプティングを勉強してみます。
頑張ります!!

0819名無しさん＠お腹いっぱい。

02/01/26 16:58ID:rcPie24K

画像アップできる掲示板なんですが、レスにも親記事と同様に
画像のアップロード機能を付けたり、返信タイトルを変えれるように改造したいのですが
どうすればよいでしょう。

ソースはwww12.tok2.com/home/azsx4/bbs.txt　です。

0820名無しさん＠お腹いっぱい。

02/01/26 20:38ID:???

bbs.txtだけじゃわからんな

0821819

02/01/26 22:40ID:???

あと何が要りますか。>>820

0822名無しさん＠お腹いっぱい。

02/01/27 12:32ID:c8vNEx+4

CGIスクリプトの内部から、sendmail gzip perl自体の場所を
知ろうとしているのですが、逆クオートで、`which perl`などとやっても
うまく表示されません。
そこで、

test.cgi
#! /usr/local/bin/perl -w
`sh ./test.sh`;
exit;

test.sh
#! /bin/sh
which perl >1.txt
which gzip >>1.txt
which sendmail >>1.txt

として表示させています。
(sendmailのパスはこれでもだめでした・・・)
よろしければ、これらの問題点、sendmailのパスの取り方、
もっとまともなやり方、などアドバイスがありましたら、
よろしくお願いします。

0823名無しさん＠お腹いっぱい。

02/01/27 12:34ID:c8vNEx+4

>822
（背景）
CGIは稼働するのですが、SSHやtelnetを許可されていないプロバイダで、
かつ、これらのパスの位置などをユーザが容易に知り得ない状況で、
スクリプトにパスを記入するのが必要な場合に簡単に提供してあげたい
という事情です。

0824名無しさん＠お腹いっぱい。

02/01/27 13:12ID:???

無理がでたね。房よ。さぁ心を開くのです。

0825名無しさん＠お腹いっぱい。

02/01/27 13:18ID:???

>824
demupa?

0826721

02/01/27 14:15ID:???

>>822
/usr/bin/which とかって、フルパスで書いてないからとか。

0827名無しさん＠お腹いっぱい。

02/01/27 14:21ID:???

>826
お返事ありがとうございます。

$check = `which ls`;
print $check;

では、/bin/ls
がきちんと表示されます。
しかし、
$check = `which perl`;
ですと、うまくいかないようです。
もしかしたらパーミッションなんかが絡んでいるのかもしれないのですが・・・
あるいは、セキュリティ対策のために隠蔽されているかもしれないですが・・・

0828名無しさん＠お腹いっぱい。

02/01/27 15:18ID:???

「上手く行かない」とは?
後者の場合、どのように表示されるの？

0829名無しさん＠お腹いっぱい。

02/01/27 15:19ID:???

>828
カラッポです。

0830名無しさん＠お腹いっぱい。

02/01/27 17:06ID:???

他のサーバでは、うまくいってるコードなの？

0831819

02/01/27 17:08ID:???

再度依頼します。
画像アップできる掲示板なんですが、レスにも親記事と同様に
画像のアップロード機能を付けたり、返信タイトルを変えれるように改造したいのですが
どうすればよいでしょう。

下の２つが関与していることが分かりました。
www12.tok2.com/home/azsx4/bbs.txt
www12.tok2.com/home/azsx4/bbs_eng.txt

0832名無しさん＠お腹いっぱい。

02/01/27 17:19ID:???

見てほしかったら、いちいち http:// を切るな
めんどくせー

0833名無しさん＠お腹いっぱい。

02/01/27 17:39ID:???

>832
るせんだよお前
馬鹿は引っ込んでろって

0834名無しさん＠お腹いっぱい。

02/01/27 18:04ID:???

>830
>>822-823
をご覧下さい。
>>827は、>>826へのお返事です。
m(_ _)m

0835819

02/01/27 19:04ID:???

833は私の書き込みではありませんので。
以前２チャンネルに直リンクしたところ、アカウントを抹消されましたので
こり方法を採らせて頂きました。申し訳有りませんが、これで宜しくお願いします。

0836名無しさん＠お腹いっぱい。

02/01/27 19:08ID:???

どーでもいいがトクトクは止めとけ

0837名無しさん＠お腹いっぱい。

02/01/27 19:47ID:???

832 = 836　　
引っ込めゴミ屑

0838名無しさん＠お腹いっぱい。

02/01/27 19:57ID:???

836はオレじゃねーよ
だいたい、833の方がクズっぽいじゃんｗ

0839838

02/01/27 20:08ID:???

>>834
$cmd の汚染チェック

$which = "/usr/bin/which";
if($cmd){
$s = `$which $cmd`;
if($s ne ""){
print " $s\n";
} else {
print " 無い\n";
}
} else {
print "入力して\n";
}
うちのサーバーでは動くよ。

0840名無しさん＠お腹いっぱい。

02/01/27 20:24ID:c8vNEx+4

>826
>839
ありがとうございます。おかげさまでPerlのパスは表示できるようになりました。
原因がよくわからないのですが、/usr/bin/whichとフルパスにしたところ、
今までちゃんと表示されなかったsendmail perlについても、
パス表示で出力されました。
ありがとうございました。

0841名無しさん＠お腹いっぱい。

02/01/27 20:49ID:???

と言うかそれはshスクリプトの仕事のような････
大体PerlのパスはPerlで調べられないでしょう　(笑

て冗談は置いといて
コマンドパス(ここではwhich)もshの方があらかじめ通ってる可能性が高いよ

0842名無しさん＠お腹いっぱい。

02/01/27 20:55ID:c8vNEx+4

>841
PerlのパスをPerlで調べる、というのは、結果が出せなくてムキに
なってやってた面があります(笑)。おっしゃるとおりだと思います。
（ただ、表示させることは出来たので「できない」と言い切るわけにも行きませんが）

＞コマンドパス(ここではwhich)もshの方があらかじめ通ってる可能性が高いよ

そうなのだと思いました。

> which which
which: shell built-in command.

これを実行して、そのことに気づきました。
shスクリプトについては、ブラウザから実行できないケースがありますので、
なんとか、CGI(Perl)でやりたかったというのが真相です。

0843名無しさん＠お腹いっぱい。

02/01/29 14:08ID:wmSGxJCC

お世話になります。

http://www.botan.sakura.ne.jp/%7Ewcs/perl/download.htm
ここのbbsnote7.17を使いたいのですが、

画像サイズは任意ではなく
ポップアップメニューで
よこ100・たて200
よこ200・たて300
よこ300・たて400
といったふうに予め指定ができるようにしたいのですが
スクリプトをどう変えるべきなのでしょうか。

心当たりのあるファイルをみっつアップしてみましたが
的外れなようでしたら追加致します。
どうぞ宜しくお願い致します。

http://members.tripod.co.jp/goldenzombie/bbsnote.txt
http://members.tripod.co.jp/goldenzombie/skin.txt
http://members.tripod.co.jp/goldenzombie/config.txt

0844名無しさん＠お腹いっぱい。

02/01/29 17:13ID:???

>>843
えーとねぇ、多分出来たんだけど、
こういう掲示板使った事ないからよく判んないんで自分で変な所探してみてくれる？
isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/027.lzh

0845名無しさん＠お腹いっぱい。

02/01/29 17:31ID:???

あ、ゴメン、skinは上のダウンロードする所にあったBasicってヤツにしてしまった

0846名無しさん＠お腹いっぱい。

02/01/29 18:10ID:???

844さん
ありがとうございます！
config.cgiにエラーがあったみたいなんですが
頂いたスクリプトをお手本に動くまでやってみます。
何から初めていいかすらわからなかったので勉強になりました。

0847名無しさん＠お腹いっぱい。

02/01/29 19:55ID:ugS9E7RW

人様の高機能掲示板の改造をしていたのですが、
途中でバグが発生して原因が分からなくなってしまいました。
スクリプトを直接手直ししてやってもいいぞ、という方いらっしゃいませんか。
お時間があるときでよいので宜しくお願いできませんでしょうか。

バグの内容：
１．投稿時、文字色の指定を「#」にして投稿後、フォームの体裁が崩れる。
２．レスフォームの画像のアップロードが出来ない。
３．投稿文字色を「#」で指定したときの、投稿前に選んだアイコンが反映されない。

スクリプトは下記に纏めて置いておきます。
spamkill.hoops.ne.jp/bbs.lzh

0848名無しさん＠お腹いっぱい。

02/01/29 22:03ID:???

時間はあるけどやるきがないっす
ごみんね

0849名無しさん＠お腹いっぱい。

02/01/29 23:51ID:???

>>847
人様の為に無料でやれと書かれてモナー。
ソース見た後にバグチェックだって。
馬鹿？

0850名無しさん＠お腹いっぱい。

02/01/30 00:26ID:???

>>849
出来ない人の煽り禁止、負け犬程良く吠える
ここは出来ない人を助けてあげるスレです

0851850

02/01/30 00:29ID:???

>>847
取り敢えず3の問題はbbs.cgiの1596行目に
<input type=hidden name="icon" value="$in{'icon'}">
を追加すればOKだと思いますよ。たぶんですけど。
残りの問題は私より詳しい人を待ちましょう。

0852とても初心者

02/01/30 02:34ID:H16YxSpO

ｋｅｎｔさんの全文検索ですが、１ページの中で１ヶ所ヒットすると、
そのページの検索が終わります。これを、
すべての言葉でヒットするように改造したいのですが、
うまくいきません。
現在、全言葉がヒットしてしまいます。
なぜでしょうか？

foreach $data (@data) {
　# HTMLのタイトルを記憶
　if ($data =~ /<title>(.*)<\/title>/i) {
　$title = $1;
　}
　# タグを無効化
　$data =~ s/<[^>]*(>|$)//g;
　if (index(lc($data), lc($pair)) >= 0) {
　$flag=1;
　}
　# タイトル名が取得できなかった場合
　if ($title eq "") { $title = "無題"; }
　if ($flag) {
　　# 検索結果を表示
　　if ($h eq 0) {
　　　　　$h =1 ;
$hit++;
　　　　　print "<LI><a href=\"$path\">$title</a>\n";
　　　　　print "<DL><DT>$data</DL> \n";
　　　}
　　　else {print "<DL><DT>$data</DL> \n";}
　}

}

0853847

02/01/30 03:00ID:???

>>850
そのコメントを待っていました。
実は私もこのスレに何度かお世話になっております。

これからも頑張ってください!!

0854名無しさん＠お腹いっぱい。

02/01/30 03:03ID:???

何度かお世話になってそんな事も分からんのか　　ｗ
エラーメッセージ位書かないと
頭の不自由な人と思われるよ

0855とても初心者

02/01/30 03:05ID:H16YxSpO

あ、最初に　$flag=0　が足りないのでしょうか？

0856とても初心者

02/01/30 03:13ID:H16YxSpO

$flag=0　でＯＫでした。

最初の１ヒット目で＄h=1
にしてタイトルも表示、
＄h=1　ならタイトルなしにしています。
いちおう表示されますが、これでいいのでしょうか？

■ このスレッドは過去ログ倉庫に格納されています