2

perlを使用してmysql DBに画像を挿入するのを手伝ってください。

これは私のHTMLコードです:

<form name="addNewUser"  method="get" action="addNewUser.pl" >
    Email: <input type="text" name="email" value = ""></br>
    Password: <input type="password" name="pwd" value = ""></br>
    Name: <input type="text" name="name" ></br>
    Image:<input name="image" accept="image/jpeg" type="file"> </br>
    <input type="submit">
</form>

これは私のperlコードです:

#!/usr/local/bin/perl -w
#use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );
use HTML::Template;

# read the CGI params
my $cgi = CGI->new;
my $email = $cgi->param("email");
my $pwd = $cgi->param("pwd");
my $name = $cgi->param("name");
$filename = $cgi->param ("image");


require "dbconfig.pl";

$rows = $db_handle->do( "INSERT INTO users VALUES ('NULL','$name', '$email', '$pwd', '$image') " );

これの何が問題なのですか？DBにファイルをロードしていません。

私を助けてください。

前もってありがとう、サプナ

4

1 に答える 1

4

画像のファイル名をと呼ばれる変数に取得しますが、SQLステートメントで。と呼ばれる変数から画像ファイル名$filenameを挿入しようとします$image。

プログラムの行のコメントuse strictを外し、表示される問題を修正する必要があります。

于 2012-07-06T12:53:39.733 に答える