tag:blogger.com,1999:blog-2396059334214119246.post1794729236638379976..comments2009-12-22T02:39:49.272+09:00Comments on エア新書開発blog: エア新書 データ障害および復元データ不具合のお詫びdotimpacthttp://www.blogger.com/profile/01679983528576437112noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-2396059334214119246.post-21471482914434717832009-12-22T02:39:49.272+09:002009-12-22T02:39:49.272+09:00ちょっかい
検索ができないそうですが
Perlだとこうすれば大体……
配列作るのがめんどいならロ...ちょっかい<br /><br />検索ができないそうですが<br />Perlだとこうすれば大体……<br /><br />配列作るのがめんどいならログファイル読み込みつつでwhile(<IN>)とかでも<br /><br />------------------------------<br /><br />上で&ReadParse;的な処理<br /><br />print <<"EOM";<br /><br /><form action="$script" method="get"><br /><input type="text" name="search-box" value="$in{'word'}" size="40" id="search-box" class="text" /><br /><input type="image" name="submit" alt="GO" src="/images/common/btn_go.gif" id="search-submit" /><br /><input type="hidden" name="mode" value="neta_find"><br /></form><br /><br><br />EOM<br />if($in{'word'} ne ''){<br /> print "<hr>\n";<br /> @words = split(/\s/,$in{'word'});<br /> $wordsnum = @words;<br /> $findnum = 0;<br /> for($i = 0; $i <= $max; $i++){<br /> $flag = 0;<br /> foreach(@words){<br /> if("$title[$i] $date[$i]" =~ m/$_/){#@titleや@dateは新書データのタイトルと日付を入れた配列。<br /> $flag++;<br /> if ($orand eq 'OR' || $flag == $wordsnum){#$orandはOR検索かAND検索か指定(拡張用)。後半は単語数と検索数が一致(AND条件満たす)。<br /> if($disp[$i] == 1){<br /> print "<a href\=\"$script?n\=$n[$i]\">$imgtag[$i]とか$title[$i]云々</a>";<br /> print "<br>\n\<font size\=\"-1\">$date[$i]更新<\/font><br><br>\n";<br /> $findnum++;<br /> last;<br /> }<br /> }<br /> }<br /> }<br /> }<br /> <br /> if($findnum == 0){print "探したけど無かったです……。<br>別のキーワードを試してください。";}<br /> else{print "<hr>$findnum件見つかりました。";}<br />}<br /><br />------------------------------Anonymoushttps://www.blogger.com/profile/09135183385472315152noreply@blogger.com