Привет всем, народ. Чего-то я сегодня перегрелся с этим mysql. Вопрос такой:

создаём следующую БД:

mysql>create database new;
mysql>create table musrs(name varchar(20), mail varchar(20), msg varchar(255));

Затем пишем такую прогу:

Код

#!perl -w use CGI::Carp qw (fatalsToBrowser); use DBI; print "Content-type: text/html\n\n"; my ($db, $user, $pwd, $host) = ('new', 'root', 'passwd', 'localhost'); ##################################START_DECODE################################# $dats = $ENV{'QUERY_STRING'} if ($ENV{'REQUEST_METHOD'} eq 'GET'); read(STDIN,$dats,$ENV{'CONTENT_LENGTH'}) if ($ENV{'REQUEST_METHOD'} eq 'POST'); $dats =~ s/[a-fA-F0-9][a-fA-F0-9]/pack("C",hex($1))/eg; $dats =~ tr/+/ /; $dats =~ s/</&lt;/; $dats =~ s/>/&gt;/; $dats =~ s/\"/\"/; $dats =~ tr/ / /s; @massiv = split(/&/,$dats); foreach $mas (@massiv){ ($name,$value) = split(/=/,$mas); $hash{$name} = $value; }       my ($mss,$eml,$nm) = ($hash{'msg'},$hash{'mail'},$hash{'login'}); ###################################END_DECODE################################## ###################################START_FORM################################### print qq~ <form method = 'POST'> <table>   <tr>     <td>Имя:   <tr>     <td>       <input type = 'text' name = 'login'>   <tr>     <td>E-mail:   <tr>     <td>        <input type = 'text' name = 'mail'></tr></td>   <tr>      <td>        <textarea name = 'msg'></textarea></tr></td>   <tr>      <td>        <input type = 'submit' value = 'Отправить'></tr></td> </table> </form> ~; #################################END_FORM#######################################        if($nm && $mss){            my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host",$user,$pwd) || die $DBI::errstr;            my $q = "insert into musrs values('$nm', '$eml', '$mss')";            my $res = $dbh->prepare($q);            $res->execute() || die $DBI::errstr;         }

В принципе работает, и данные в базу заносит. Вопрос в том, что если у меня сообщение (колонка msg) к примеру равно 3000 символов, то получается какая-то хрень, если быть точным, то вообще не могу понять, заносится оно или нет. Что в этом случае делать? Помимо этого могут быть ещё ведь и новые строки. При их наличае тоже не понятно что происходит

Используй для поля msg тип BLOB. А кстати, раз уж ты используешь CGI::Carp, то почему ты сам CGI не используешь? Переданные их формы параметры, без извращений, в этом случае можно получить так

Код

my %Arg = CGI::Vars();

А в твоем коде уже есть возможность SQL-injection, поскольку не экранируются как положенно данные из формы перед передачей в базу...

Rezzonans ты же для поля msg - используешь тип поля varchar длинной 255 символов (максимум). Поэтому если у тебя msg содержит строку в 3000 символов, то в таблицу записывается только 255 символов.

Если тебе действительно нужно записывать такие большие сообщения в базу, то используй тип поля - text (binary blob).

Зачем ты ручками обрабатываешь форму, какая необходимость в этом?
perldoc CGI

И последнее: если у тебя скрипт далее работает с базой, то вынеси коннект в самое начало скрипта, дисконект поставь в самый конец скрипта.

понял, спасибо, мужики

Тогда ещё вопрос. Вот команда mysql


LOAD DATA LOCAL INFILE "/css.txt" INTO TABLE adm;

которая загружает файл css.txt в таблицу adm. Только загружаться он будет в первую колонку таблицы. Как сделать, чтобы загрузить этот файл в третий столбец или четвёртый? Или это вообще чушь?

Цитата

LOAD DATA LOCAL INFILE "/css.txt" INTO TABLE adm;

смотри документацию по данной команде здесь.



Это сообщение отредактировал(а) sharq - 29.11.2005, 10:58