|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 14 Jun 2002 08:34:44
To : All
Subject : вопрос по mason
--------------------------------------------------------------------------------
Привет великомудрому аллу!
Есть файл с данными, space.dat, разделение данных по символу \\x00
и подразделение в "строках" по символу \\x01(забекслешил оба на всякий
пожарный), нужно вывести третий элемент в массиве, юзая mason:
<td background="SOYUZ.GIF">
% my ($c,@m);
% open F, "</usr/local/etc/httpd/pereplet/htdocs/space/space.dat";
% $/="\x00";
% while(<F>){ $c++;
% push @m => @{[split m!\x01!]}[3];
% last if $c >= 11;
% }
% grep {s!<.*?>!!g} @m;
% $/="\n";
% print join "<p>" => @m;
</td>
</tr>
ну дык вот оно все выводит, но почему-то перед хедером html и не в том
месте таблицы где нужно:
Второй выход в открытый космос HTTP/1.1 200 OK Date: Fri, 14 Jun 2002
04:35:15 GMT Server: Apache/1.3.19
(Unix) mod_perl/1.25 rus/PL30.4 Cache-Control: max-age=300 Expires:
Fri, 14 Jun 2002 04:40:15 GMT Connection: close
Content-Type: text/html; charset=windows-1251
и прямо этот весь текст пишет в html.
Чего это может быть за баг?
Дима
--
TEAM [Маньяки]
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
