VPF::Perl с самого начала - Форум программистов

Pollucs

Дата 22.2.2011, 11:52 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.2.2011

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

Утро доброе! В этом фрагменте скрипта должна создаваться новая корзина:

Код


sub Assign_Basket_Number {
    local ($basket_no);
    open(FILES, "Is $cfg{base_path}$cfg{basket_path}|") ||
         die "Content-type:text/html\n\n Невозможно найти текущую корзину!";
    while (<FILES>) {
          chop;
          unlink "$cfg{base_path}$cfg{basket_path}$_" unless -M
          "$cfg{base_path}$cfg{basket_path}$_" < 1;
    }    # Удаление корзин, существующих более 24 часов
    close(FILES);

    srand(timel$$);
    $basket_no = time . "." . int(rand(999));
    open(BASKET, ">$cfg{base_path}$cfg{basket_path}basket_no") ||
         die "Content-type: text/html\n\n Невозможно создать новую корзину";
    close(BASKET);
    return $basket_no;
}

однако ругается на строку с "srand(timel$$);", что не так? Спасибо.

sir_nuf_nuf

Дата 22.2.2011, 12:46 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

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

Цитата(Pollucs @ 22.2.2011, 11:52

)

однако ругается на строку с "srand(timel$$);", что не так? Спасибо.

Почитайте, что написано в ругани. Там обычно описание ошибки )

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

Pollucs

Дата 22.2.2011, 12:56 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.2.2011

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

Читал, вот она:
Can't call method "timel" without a package or object reference at Z:/home/perlbook.ru/cgi-bin/main.cgi line 272.

alezzz

Дата 22.2.2011, 13:11 (ссылка)

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

Загрузка ...

сплю...

Профиль
Группа: Участник
Сообщений: 499
Регистрация: 17.8.2009

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

http://perldoc.perl.org/functions/srand.html

там написано time ^ $$, в вашем случае похоже на time | $$ (вместо верт. черты у вас буква L маленькая)

Pollucs

Дата 22.2.2011, 13:42 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.2.2011

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

alezzz Спасибо. Ввёл в заблуждение материал курсов, в котором много ошибок. Уже жалею, что начал их, но закончить надо..

Pollucs

Дата 24.2.2011, 12:11 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.2.2011

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

И вновь в тупике.. Вот фрагмент кода:

Код


 print "<TABLE border=\"0\" cellpadding=\"0\" cellspacing=\"0\" ALIGN=\"center\">\n";

   # LOGO
    $_ = $cfg{m_logo};
    if (m/.*YES.*/i) {
       print "<TR VALIGN=\"top\"><TD>
             <a href=\"$cfg{script}?action=display&page=intro\"target=\"Right\">
             <img src=\"$cfg{home}$cfg{graph_path}$cfg{logo_menu}\" border=\"0\" alt=\"СЕРДЕЧНО ПРИВЕТСТВУЕМ\"></a></TD></TR>\n";

    }

   # О ФИРМЕ
    $_ = $cfg{m_about};
    if (m/.*YES.*/i) {
       print "<TR valign=\"top\"><TD>
             <a href=\"$cfg{script}?action=display&page=about\" target=\"Right\">
             <img src=\"$cfg{home}$cfg{graph_path}$cfg{about_button_1}\" border=\"0\" alt=\"О ФИРМЕ\"></a></TD></TR>\n";
    }

есть ссылки, но не работают. Проблема в том, что не могу понять, на что они ссылаются. В материале курса код дан, а что к чему - не понятно.. Может подскажете где найти материал по представлению HTML средствами Perl?
И ещё, почему то не отображаются картинки (настройки в браузере включены, $cfg - файл конфигурации, с ним и работаю, картинки не отображаются и в случае, если задаю к ним путь прямой без файла $cfg)
Помогите, хоть какие-нибудь мысли, а то уж начинаю отчаиваться совсем, закончу ли начатое..

ming

Дата 28.2.2011, 09:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

И ещё, почему то не отображаются картинки (настройки в браузере включены, $cfg - файл конфигурации, с ним и работаю, картинки не отображаются и в случае, если задаю к ним путь прямой без файла $cfg)

покажите результирующий HTML что ли

Pollucs

Дата 28.2.2011, 12:23 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.2.2011

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

Отображены ссылки, расположенные в сверху и в центре страницы, но фона этих ссылок (т.е. картинок) нет, они тоже должны являться сылками.. Их там не две, гораздо больше, я лишь фрагмент отобразил...

Pollucs

Дата 28.2.2011, 12:23 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.2.2011

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

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