Question

请使用perl帮助我在mysql数据库中插入图像。

这是我的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中加载文件。

请帮帮我。

提前致谢，Sapna

Answer 1

您将图像文件名转换为名为$filename的变量，但在SQL语句中，您尝试从名为$image的变量中插入它。

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

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

1 个答案: