VPF::Получение парамметра из формы

Олег13

Дата 10.7.2011, 09:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день! Помогите с проблемой. Делаю систему регистрации на сайте, на форме есть компонент Textfield (включен режим multiline) данные этого поля обрабатываются скриптом и записываются в простой текстовый файл. Запись происходит корректно, но мне надо чтобы данные от этого Textfield записывались в файл одной строкой, а не так как их ввел пользователь в поле Textfield. У меня получается несколько строк. Ниже привожу кусок своего скрипта

Код


.................
$inp1=param('name');
$inp5=param('comments');
if ((length($inp1) and length($inp5))==0) {
print "Content-type: text/html\n\n";
print "<html><h1>Вы не заполнили поля</h1></html>\n";
}
else {
open (REG, ">>messages.dat") or die "Не могу открыть файл reg.txt: $!";
$/="::";
print REG $inp1,$/;
print REG $inp5,$/;
print REG $ENV{'REMOTE_ADDR'};
print REG "\n";
print REG "\n";
close (REG) or die $!;
print "Content-type: text/html\n\n";
print <<HTML;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<title>Регистрация!</title>
<style type="text/css">
<!--
.style3 {color: #FF0000; font-style: italic; }
-->
</style>
</head>
<body>
<h1><strong><em>Регистрация прошла успешно!!!</em></strong></h1>
<h3>Ваше имя: <span class="style3">$inp1</span></h3>
<h3>Ваш комментарий: <span class="style3">$inp5</span></h3>
</body>
</html>
HTML
}

когда просматриваю reg.txt, то вижу вот это
    Олег::Все
    отлично::95.30.35.242

, а мне надо одной строкой "Олег::Все отлично::95.30.35.242". Как это сделать? Понимаю, что нужно обработать переменную $inp5, но как? Подскажите пожалуйста. Я не спец. в PERL и рег.выражениях.    Заранее спасибо.

dixoNICH

Дата 10.7.2011, 12:31 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


chomp($inp1);

Олег13

Дата 10.7.2011, 13:29 (ссылка)

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

Загрузка ...

Новичок

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

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

нет! так не будет работать переменная $inp1 имеет значение "Oleg", а $inp5 значение "Все
отлично", но она должна быть одной строкой, а не разбита на две.

Олег13

Дата 10.7.2011, 15:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Все! Тему можно закрывать. Вопрос решил сам.

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