Forum Webscript.Ru

Программирование => Perl => Тема начата: alex007 от 23 Декабря 2002, 00:44:12

Название: Как написать это
Отправлено: alex007 от 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/" );
}
?>

Жду ответов.
С Уважением,
Алекс

Название: Как написать это
Отправлено: YA от 23 Декабря 2002, 00:51:50

$template=q~.....~;

Или ставь "\\" перед "$".

Название: Как написать это
Отправлено: alex007 от 23 Декабря 2002, 20:27:24

YA
Спасибо теперь работает.