長期に亘ってROMさせて頂いていましたが、初めて投稿させていただきます。
草薙と申します。

--Original Message--
(snip)
>Perlのソースは下記です。
>#------------------------------------------------
>#   検索
>    sub link_word	{
>
>#       ファイル読み込み
>        &file_read("$file_date");
>        &file_unlock;
>
>    	$FORM{'word'} =~ s/　/ /g ;
(snip)

そもそも、ご提示のスクリプトはファイルから読み込んだ文字列に対して検索を行っ
ていますが、その対象ファイルをテーブルに格納して検索をされるのでしょうか？
MySQLに移植とおっしゃっていますが、どういった機能を実現させたいのか今ひとつ
判りません。

# このソースは見たところ変数名も含め、ある有名なフリーCGI配布サイトの
# スクリプトに酷似していますが、それは今は関係ないですね。

----------------------------------------------------
草薙考司 <kusanagi@xxxxxxxxxx>