записать файл в mysql perl
Добавлено: 2008-06-24 0:24:53
не получаеться записать из масива в базу! со скаляром не получилось нифига
как сделать чтобы работаел такой код
ругаеться на вот это
подскажите как сделать?
как сделать чтобы работаел такой код
Код: Выделить всё
#!/usr/local/bin/perl
#use strict
#use CGI qw(:standard);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Encode qw(encode_utf8);
open(MYFILE, "/Desktop/u.txt") || die "sdfsdfsdfsdf sd";
@contents=<MYFILE>;
#$tmp='';
#undef $/;
#while (<MYFILE>) { $tmp=$_ };
#print MYFILE $tmp;
#$contents = <MYFILE> $contents $var;
my $dbh = DBI->connect("DBI:mysql:database=,
{ RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
my $result = $dbh->prepare("UPDATE messages SET body = ? WHERE ID=42") || die "aw";
$result->execute(@tmp);
$result->finish();
$dbh->disconnect();Код: Выделить всё
$result->execute(@tmp);