Цитата(Kiber_rat @ 16.3.2006, 15:21  ) | Возможно кто-то посчитает это не важным, но тем не менее
Желательно код форматировать так, что бы он вписывался в 80 символов на строку. Во первых, большинство perl программистов работают в *nix, и как следствие в vi, да и на удаленной машине используется vi, а там 80 символов - наиболее комфортно. |
учту
| Цитата(Kiber_rat @ 16.3.2006, 15:21 ) | | Второе. Кодировка комментов win1251, опять таки, модуль будут использовать чаще всего на *nix серверах, и прочитать там комменты без перекодировки невозможно... |
учту
спасибо!!
| Цитата(Phoinix @ 16.3.2006, 20:01 ) | | 1. Если уж я включаю модуль CGI в скрипт, то значит переданные данные я буду использовать в любом случае, поэтому метод parse - лишний, точнее его следовало бы запускать во время создания объекта в процедуре ew модуля; |
я хотел сделать полное управление процессом, но замечание хорошее... может дать дополнительную возможность при создание объекта, если передан аргумент parse, производить разбор? например:
| Код |
my $cgi = Black::CGI->new( parse => 1 );
|
| Цитата(Phoinix @ 16.3.2006, 20:01 ) |
| Код |
( ( defined $hash{'key'} ) ? $hash{'key'} : 2097152 )
|
Поменять на
| Код |
($hash{'key'} || 2097152 )
|
Этого будет достаточно |
Спасибо, очень дельное замечание!
| Цитата(Phoinix @ 16.3.2006, 20:01 ) |
| Код |
# Получаем разделитель полей
($divider) = $ENV{'CONTENT_TYPE'} =~ /boundary="([^"]+)"/;
($divider) = $ENV{'CONTENT_TYPE'} =~ /boundary=(\S+)/ unless defined $divider;
|
Ну очень некрасиво... и дальше тоже, я смотрю, такая же песня... |
Я постарался упростить код, чтобы новичкам было лекго в нем разобраться, меня такая конструкция устраивает 
| Цитата(Phoinix @ 16.3.2006, 20:01 ) |
В продолжение п.3... ой... а что вообще за паровоз с разделителем? Не проще ли?
| Код |
(my $divider, my $end, $buffer) = $buffer =~m /^([^\r\n]+)([\n\r]+)(.*?)\2\1\-\-\2*$/s;
|
|
Сейчас Вы допустили очень серъезную ошибку, операционные системы поразному отображают перенос строки, надо указывать код символа \x0D\x0A
Паровоз построил, чтобы было понятно, как разбирать тело запроса по шагам, но замечание опять хорошее (про поровоз), думаю в будущем я от него избавлюсь, и напишу просто комментарии 
| Цитата(Phoinix @ 16.3.2006, 20:01 ) |
| Код |
$temp_file_name = "$self->{'temp_file_prefix'}$temp_file_name";
|
Сразу "двойка" за код... это даже не смешно... |
Только вчера заметил, хотел убрать, опередили 
| Цитата(Phoinix @ 16.3.2006, 20:01 ) | | Поверь... методом GET особо много не передашь и без твоих проверок... не помню какой RFC |
Я об этом знаю, но лучше перестрахуюсь ...
| Цитата(Phoinix @ 16.3.2006, 20:01 ) |
| Код |
my @temp = delete( $self->{'get'}->{$name} );
push( @{ $self->{'get'}->{$name} }, @temp, $content );
|
|
Если передано два поля с одним именем, чтобы не затереть первое значение, мы создаем хэш массива
Потом обращаемся к нему через индекс
| Код |
$_GET->{'var1'}[0] - $_GET->{'var1'}[1]
|
| Цитата(Phoinix @ 16.3.2006, 20:01 ) |
| Код |
$self->{'get'}->{$name} = [$self->{'get'}->{$name}, $content];
|
|
Не только, я забыл задокументировать, что если его вызвать с аргументом
| Код |
$cgi->remove( files => "all" ) or print $cgi->error;
|
то будут удалены все файлы из временой директории, например те, которые были созданы сторонними програмами ...
Спасибо за комментарии!!!!! |
