|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Denis Roshchin 2:5020/400 14 Jan 2003 01:51:50
To : All
Subject : Файл в базу и обратно.
--------------------------------------------------------------------------------
Приветствую.
Такая проблемка.
Раньше работало - теперь - нет.
Файл закидывается, записывается во временный файл и
кладется в базу.
Hа вид все работает и вынутое-положеное выглядит правильно,
однако компьютеру не нравится :(.
Вопрос еще как правильно в базу файл закинуть?
Логично ли делать $var =~ s/'/\\'/g;
сам мой скрипт:
$fh = param('file_var');
print "Content-type: text/html\n\n";
my $dbh=DBI->connect($DB_CONF{source},$DB_CONF{user},$DB_CONF{password},
{PrintError =>1, RaiseError=>0}) or die "$DBI:errstr";
open(AFILE,">pic.tmp.jpg");
binmode(AFILE);
while($bytes_count=read($fh,$buff,2096)){
print AFILE $buff; $af.=$buff; }
while(<$fh>){ print AFILE; } close(AFILE);
$af =~ s/'/\\'/g;
$query="UPDATE table SET file_field='$af' ";
$dbh->do($query);
--
Комиссия по контролю,
# Denis Roshchin
# denis@komkon.org
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
