- 1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]
- このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
- 799 名前：nobodyさん mailto:sage [2008/01/31(木) 14:37:56 ID:???]
- 文字列検索プログラムを書いたぞ。phpだけど。
このファイルと同じディレクトリに[in.txt]という名前で文書ファイルがあるものとする。
<html><body>
<form method="POST" action="test.php"><input type="text" name="key" size=30>
<input type="submit" value="送信"></form>
<hr>
<?php
if($_POST["key"] == ""){
echo "</body></html>";
exit;
};
$key = $HTTP_POST_VARS["key"];
echo "検索キー：$key<br>";
// 検索キーを空白スペースで分割する。
$key2 = split(" ", $key);
// 要素数を出す。
$key2_cnt = count($key2);
$INFILE = fopen("in.txt","r");
$line_num = 1;
$cnt = 0;
- 800 名前：nobodyさん mailto:sage [2008/01/31(木) 14:39:01 ID:???]
- つづき
while($cnt < $key2_cnt){
echo "検索キー：$key2[$cnt]<br>";
while(!feof($INFILE)){
$line = fgets($INFILE, 1024);
$search_flg = strpos( $line , $key2[$cnt] );
if( $search_flg !== false ){
$out_line = "line " . $line_num . " : " . $line . "<br>";
echo $out_line;
}else{
// echo "この行にはありません。: $line<br>";
}
$line_num = $line_num + 1;
}
rewind( $INFILE );
$cnt=$cnt+1;
}
fclose($INFILE);
?>
</body></html>
|
 |
