検索CGIについて

解決済

質問者：gonntetu
質問日時：2005/05/17 23:47
回答数：2件

始めまして
よろしくお願いします

今サーチスクリプトを作成しているのですが
「X件見つかりました」
のようにするにはどのようなコーティングにすればいいのでしょうか？
自分なりにはやってみたもののあまり上手くできません

現在のコーティングは
インデックス関数でマッチさせています

また失敗の原因はマッチの判定の回数が表示されてしまいます

言語はperlです
よろしくお願いします

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.1

回答者： BLUEPIXY
回答日時：2005/05/18 03:20

ソースを補足で挙げて下さい。

- 0
- 件

通報する

No.2ベストアンサー

回答者： taaaaaaa
回答日時：2005/05/19 17:02

こんな感じでいかがでしょうか？

index を使っています。

-----------------------------------

open(IN,"$filename") || &error("ファイルが開きません");
$i=0;
while (<IN>) {
$flag = 0;
foreach $pair (@pairs) {
if (index($_,$pair) >= 0) {
$flag=1;
if ($cond eq 'or') { last; }
}
else {
if ($cond eq 'and') { $flag = 0; last; }
}
}
if ($flag == 0) { next; }

# 結果を表示(データは、▲区切り)
($no,$date,$tel)= split(/▲/, $_);
print "DATE: $date<br>";
print "TEL: $tel";
$i++; #ヒット数
}
close(IN);
print "$i 件ヒット";

参考URL：http://joho.boo.jp/