cgiでファイルを検索してhtmlにその検索結果を表示するにはどうすればいいですか?以下のようなスクリプトを書いて、あとはindex関数とsubstr関数を使ってそれを行おうとしているのですが以下のスクリプトでエラーが出ます。どなたかよろしくお願いします。
#!C:/Perl64/bin/perl use strict; use warnings; use utf8; use CGI; $query = new CGI; use CGI qw(:standard); use File::Copy; #binmode STDIN, ':utf8'; #binmode STDOUT, ':utf8'; #binmode STDERR, ':utf8'; #use strict; #use warnings; #use DBI; #use DBD::SQLite; #追加use #use utf8; #use CGI; #$query = new CGI; #use CGI qw(:standard); #use File::Copy; #binmode STDIN, ':utf8'; #binmode STDOUT, ':utf8'; #binmode STDERR, ':utf8'; #use strict; #use warnings; #追加use終了 #binmode STDIN, ':encoding(cp932)'; #binmode STDOUT, ':encoding(cp932)'; #binmode STDERR, ':encoding(cp932)'; $syouhinkensaku = $query->param('syouhinkensaku'); my $dir = "syouhin"; chdir $dir or die "Cannot change working directory $dir: $!"; my @file = glob "*"; #@syouhinfile=join(",", @file)"\n"; @syouhinfile=join(",", @file); #$abc = "kensakuitiji.txt"; #open(OUT, ">> $abc") || die("ファイルを追記モードで開けませんでした"); #$msg2 = "@file\n"; #print OUT $msg2; #close(OUT); print "Content-type: text/html\n\n"; print<<"HTML"; <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>検索ヒット</title> </head> <body bgcolor="#000066" text="#ff0000" link="#0000ee" alink="#0000ee" vlink="#551a8b"> <form action="b5.cgi"> <form> @syouhinfile<br> <input type="submit" onclick="location.href'b5.cgi'" value="NEXT"><input type="reset" value="RESET"> </form> <br> <br> </body> </html> HTML exit;
回答1件
あなたの回答
tips
プレビュー