VPF::Где может быть торможение в скрипте

izOne

Дата 24.11.2005, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 22.8.2003
Где: Украина, Киев

Репутация: нет
Всего: 4

Код


use CGI::Carp qw (fatalsToBrowser);
use DBI;
use strict;

require '../lib/utils.cgi';

&main();
# ----------------------------------------------------------------------
sub main
{
    my $dbh = db_connect();

    my %form;
    %form = parse_form() if defined($ENV{REQUEST_METHOD});

    $form{n} = defvn($form{n});
    $form{t} = defvs($form{t});

    if ($form{n}) {
        my $table = $form{t};
        $table = 'cimages' if $table eq 'c';
        $table = 'pimages' if ($table ne 'cimages');
        my ($n, $format, $img) = $dbh->selectrow_array("select n, format, image from $table where n = ?", undef, $form{n});

        if ($n and length($img) > 16) {
            print
            "Expires: " .  expires('+15d', 'http') . "\n".
            "Content-type: image/$format\n\n";
            binmode STDOUT;
            print $img;
        }
    }

    $dbh->disconnect();
}
# ----------------------------------------------------------------------
1;

Помогите с советом если можете (я сам в перле только основы знаю)

--------------------

Успех ждет каждого, но иногда всю жизнь.

BlackLFL

Дата 24.11.2005, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 3
Всего: 12

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

Это сообщение отредактировал(а) BlackLFL - 24.11.2005, 16:07

sharq

Дата 25.11.2005, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

izOne если скрипт рабочий, то комментируй те вещи, которые тебе служили в целях отладки, в твоем случае:

Код


#use CGI::Carp qw (fatalsToBrowser);
use DBI;
#use strict;

Если есть -w, то тоже убирай.

Нет необходимости использовать функцию main, это не Си. smile

Код


    my $dbh = db_connect();
    my %form = parse_form() if defined($ENV{REQUEST_METHOD});
    $form{n} = defvn($form{n});
    $form{t} = defvs($form{t});
    if ($form{n}) {
        my $table = $form{t};
        $table = 'cimages' if $table eq 'c';
        $table = 'pimages' if ($table ne 'cimages');
        my ($n, $format, $img) = $dbh->selectrow_array("select n, format, image from $table where n = ?", undef, $form{n});
        if ($n and length($img) > 16) {
            print
            "Expires: " .  expires('+15d', 'http') . "\n".
            "Content-type: image/$format\n\n";
            binmode STDOUT;
            print $img;
        }
    }
    $dbh->disconnect();
    1;

Лучше использовать не хеш %form (тем более как возвращаемое значение у функции), а ссылку не хеш.

Код


sub parse_form() {
 
 ...
 return \%form;
} 

my $form = parse_form() if ...;
$form->{'n'} = ...;

Теперь о

Код


require '../lib/utils.cgi';

Приведи код utils.cgi и лучше его переписать как модуль и подключать

Код


 use ИмяМодуля;

Добавлено @ 11:51
+ раз это у тебя cgi-скрипт, то используй FastCGI.

--------------------

[color=gray]There's More Than One Way To Do It[/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »