Автор Тема: Как написать это  (Прочитано 2131 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн alex007

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 835
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.russians-in-london.co.uk/
Как написать это
« : 23 Декабря 2002, 00:44:12 »
Вот у меня есть скрипт который при заполнении формы, автоматически делает страницу(php).

Есть часть скрипта:
#!/usr/bin/perl

$userbasedir = \'путь до директории\';

$template=<

if ($_COOKIE[\'username\'] != "$FORM{\'username\'}") {
echo("OK!");}
else {
header("Location: http://www.domen.ru/" );
}
?>




Здесь продолжение страницы


template

open(FILE, ">> $userbasedir/$in{\'username\'}/index.php") || die $!;
print FILE "$template";
close FILE;


Как сделать так что бы вот этот скрипт(который внутри перла):if ($_COOKIE[\'username\'] != "$FORM{\'username\'}") {
echo("OK!");}
else {
header("Location: http://www.domen.ru/" );
}
?>
1. Обработал тоесть перенес переменную $FORM{\'username\'}
2. Не удалив из этого скрипта не чего, так как в данный момент он делает следующее:
if (!= ) {
echo("OK!");}
else {
header("Location: http://www.domen.ru/" );
}
?>

Жду ответов.
С Уважением,
Алекс
Русские-в-Лондоне. Как они там? Интересно. Инфо (FAQ), Форум и Магазин

Оффлайн YA

  • Модератор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 597
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Как написать это
« Ответ #1 : 23 Декабря 2002, 00:51:50 »
$template=q~.....~;

Или ставь "\\" перед "$".
Литературный перевод с русского и английского на Perl. Дорого!

Оффлайн alex007

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 835
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.russians-in-london.co.uk/
Как написать это
« Ответ #2 : 23 Декабря 2002, 20:27:24 »
YA
Спасибо теперь работает.
Русские-в-Лондоне. Как они там? Интересно. Инфо (FAQ), Форум и Магазин

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28