Perl, HTML 및 MySQL은 어디에서 중단 되었습니까?

Question

예 저는 학생입니다. 예. 과제입니다.하지만 도움을 청하는 데 도움이 필요합니다. 나는 누군가가 나를 위해 숙제를하려고하지 않는다.

그래서 6 개의 서로 다른 데이터 열이 포함 된 데이터베이스가 5 권 있습니다. 그 데이터베이스를 검색하고 결과를 테이블로 반환 할 수있는 펄 프로그램을 만들려고합니다. 카트에 카트를 추가하는 방법을 추가해야하지만 나중에 나옵니다.

Perl의 문제점은 "내부 서버 오류"가 발생하는 이유를 확인하는 방법을 모르는 것입니다. 응용 프로그램은 Perl 페이지로 이동하므로 그 점을 추측합니다.

#!/usr/bin/perl 

use warnings; # allow for warnings to be sent if error's occur 
use CGI qw(:standard); # not a 100% sure what the rest of these mean but they are like #includs in C++, libraries for reference in the code 
use DBI; 
use DBD::mysql; #database data will come from mysql 

my $dbh = DBI->connect("DBI:mysql:DATABASE NAME", "USERNAME", "PASS REMOVED") or 
    die("Could not make connection to database: $DBI::errstr"); # connect to the database with address and pass or return error 

    $term = $SEARCHTERM[]; #set the search char to $term 

    $term =~ tr/A-Z/a-z/; #set all characters to lowercase for convenience of search 

    $sql = "SELECT * FROM Books WHERE Title LIKE %$term% OR Description LIKE %$term% OR Author LIKE %$term%" or die ("$term may have not worked");   #set the query string to search the database 

    $sth = $dbh->prepare($sql); # prepare to connect to the database 

    $sth->execute # connect to the database 
or die "SQL Error: $DBI::errstr\n"; #or return an error 
while (@data = $sth->fetchrow_array) { #while we are grabbing he queried data do a table setup and set variables for table 

print "<table width=\"100%\" border=\"0\"> "; 

    $title = $data[0]; 
    $desc = $data[1]; 
    $author = $data[2]; 
    $pub = $data[3]; 
    $isbn = $data[4]; 
    $photo = $data[5]; 

    print "<tr> <td width=50%>Title: $title</td> <td width=50% rowspan=5>$photo</td></tr><tr><td>Discreption Tags: $desc</td></tr><tr><td></td></tr><tr><td>Author: $author</td></tr><tr><td>ISBN: $isbn</td> 
</tr></table> \n"; 



} 

도와주세요!

Answer 1

선택하신 내용이 잘못되었습니다. 변경 LIKE에 대한

$sql = "SELECT * FROM Books WHERE Title LIKE %$term% OR Description LIKE %$term% OR Author LIKE %$term%" 

$sql = "SELECT * FROM Books WHERE Title LIKE '%$term%' OR Description LIKE '%$term%' OR Author LIKE '%$term%"' 

에 패턴 리터럴은 인용되어야한다.

Answer 2

먼저 스크립트 상단에 use strict;을 추가하고 오류를 수정하는 것이 좋습니다. 대체적으로 my으로 변수를 선언하십시오.

매우 오래된 GUI를 사용하는 대신 Mojolicious과 같은 최신 프레임 워크를 사용하는 것이 좋습니다. 그들은 모두 CGI와 같은 환경에서 작동 할 수 있으며 사용하기가 훨씬 쉽습니다!

마지막으로, 보안 위험이 크기 때문에 SQL 문자열에 변수를 삽입하지 마십시오! 주제에 대한 자세한 내용은이 사이트를보십시오 : http://bobby-tables.com/이

Answer 3

이전, 누군가가 제안

my $sql = " 
    SELECT * 
    FROM Books 
    WHERE Title LIKE '%$term%' 
     OR Description LIKE '%$term%' 
     OR Author LIKE '%$term%' 
"; 
my $sth = $dbh->prepare($sql); 
$sth->execute(); 

을 그가 바로 문제에 대해, 그 잘못의의 가정.

my $sql = ' 
    SELECT * 
    FROM Books 
    WHERE Title LIKE ? 
     OR Description LIKE ? 
     OR Author LIKE ? 
'; 
my $sth = $dbh->prepare($sql); 
$sth->execute("%$term%", "%$term%", "%$term%");