Добрый день! Помогите с проблемой. Делаю систему регистрации на сайте, на форме есть компонент 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 и рег.выражениях. Заранее спасибо. |