質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.80%

cgiでファイルを検索してhtmlにその検索結果を表示するにはどうすればいいですか?

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 729

trm

score -63

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;
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • 退会済みユーザー

    2018/02/17 14:01

    複数のユーザーから「やってほしいことだけを記載した丸投げの質問」という意見がありました
    「質問を編集する」ボタンから編集を行い、調査したこと・試したことを記入していただくと、回答が得られやすくなります。

  • m.ts10806

    2018/02/17 16:12

    エラーを追記して、そのエラーに対してやってみたこと・調べたことを追記してください。

    キャンセル

  • yoorwm

    2018/02/17 16:19

    やりたい事とスキルの間に乖離がある感じがするので、まずはコンソール上のプログラムから始めた方がいい気はします

    キャンセル

回答 1

check解決した方法

-2

出来ました!のでこれは却下します。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/02/17 18:14

    どのように解決したか書いてください。
    https://teratail.com/help#resolve-myself
    >また後から読む人のためにも、具体的な解決手順を記載してください。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.80%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る