こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

perl require

恐れいります。
yyy.cgiというファイルの中に、
require './xxx.cgi';
を記入し、読み込みはできているのですが、
xxx.cgiを実行してyyy.cgiのそれ以降のプログラムが実行されません。

yyy.cgiの、中でxxx.cgiを実行してストップしてしまいます。
解決策をご存知の方いらっしゃいましたら宜しくお願いします。

投稿日時 - 2017-09-03 14:50:58

QNo.9370447

困ってます

質問者が選んだベストアンサー

xxx.cgiの中で終了しているのではないのでしょうか。
内容を見直してください。

投稿日時 - 2017-09-03 15:20:42

補足

#!/usr/bin/perl

use CGI;
use DBI;
use Encode;


$form = CGI->new;

$user = 'xxxx';
$passwd = 'xxxxxxx';

$id = $form->param('id');
$pass = $form->param('pass');

# DB接続
$db = DBI->connect('DBI:mysql:MMMMMM:localhost', $user, $passwd,
{RaiseError => 0, PrintError => 1});

if(!$db){
print "SQL接続不能\n";
exit;
}

$db->do("set names ujis");

$sql = "select * from members where id like '$id' and pass like '$pass'";

$sth = $db->prepare($sql);
if(!$sth->execute){
print "SQL失敗\n";
exit;
}

@rec = $sth->fetchrow_array;
if($rec[0] ne ""){
$ninsyou = "ok";
}

if($ninsyou ne "ok"){

print qq!
<body>
<span style=position:absolute;bottom:300px;right:100px;>
<form action="./" method="POST">
<input type="text" name=id placeholder="--ID--"><br>
<input type="text" name=pass placeholder="--PassWord--"><br>
<div align=right><input type="submit" value="送信"></div>
</form></span>!;
exit;
}


以上がxxx.cgiの中身です。
$ninsyouが"ok"ならば、yyy.cgiの以下のプログラムが表示される想定ですが、うまくいきません。
よろしくお願いします。

投稿日時 - 2017-09-04 07:01:52

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

print "Content-type: text/html\n\n";
は入れてますか

投稿日時 - 2017-09-06 19:44:39

あなたにオススメの質問