mysql - 如何使用perl在mysql中插入图像

Question

请帮助我使用 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') " );

这有什么问题？它没有在数据库中加载文件。

请帮我。

提前致谢， 萨普纳

Answer 1

您将图像文件名放入名为 的变量$filename中，但在您的 SQL 语句中，您尝试从名为$image.

您应该use strict在程序中取消注释该行并修复它向您显示的问题。