 Формат текста в PERL,  Friker, 26-Авг-04, 20:12 [смотреть все]Элементарное дело, а у меня кривые руки....
Необходимо что-бы скрипт (perl) зоздовал страничку с ввыводом в неё команды ipfw show, скрипт у меня идёт по крону и просматриваю я страничку через броузер,но формат получается жуткий...
Идёт всё в перемешку....
приметр:******************
#!/usr/bin/perl5
open (FILE , ">/usr/local/apache/htdocs/log/log.html");
print FILE qq~
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<h2>IPFW SHOW </h2>
~;
print FILE `ipfw show`; closefile(FILE);
****************** Как сделать что бы вместо месева которое у меня на страниче был вывод как в консоли???
Заренее благодарен! |
- Формат текста в PERL, XMan, 20:17 , 26-Авг-04 (1)
Заменить все переносы, которые есть в `ipfw show` на "<BR>" (без кавычек).
Читайте доки по HTML :)
- Формат текста в PERL, Friker, 20:29 , 26-Авг-04 (2)
>Заменить все переносы, которые есть в `ipfw show` на "<BR>" (без кавычек).
>Читайте доки по HTML :)
Я и спрашиваю как это сделать. Я HTML знаю , ты видел как команда идёт?
Надо , только КАК ???
- Формат текста в PERL, XMan, 21:16 , 26-Авг-04 (3)
На вскидку:($_ = `ipfw show`) =~ s/\n/<BR>\n/g && print FILE || print FILE "ошибка"; В замене можно просто <BR> без \n. Это сделано для удобства чтения в виде текста.
- Формат текста в PERL, mirya, 21:33 , 26-Авг-04 (4)
print '<pre>', `my_shell_command`, '</pre>';# в пре переносы остаются переносами, текст не врапается
- Формат текста в PERL, XMan, 21:38 , 26-Авг-04 (5)
Мда... Про pre я как-то сразу и не подумал. Редко использую :)
- Формат текста в PERL, chip, 08:36 , 27-Авг-04 (6)
>Элементарное дело, а у меня кривые руки....
>Необходимо что-бы скрипт (perl) зоздовал страничку с ввыводом в неё команды ipfw
>show, скрипт у меня идёт по крону и просматриваю я
>страничку через броузер,но формат получается жуткий...
>Идёт всё в перемешку....
> приметр:
>
>******************
>#!/usr/bin/perl5
>open (FILE , ">/usr/local/apache/htdocs/log/log.html");
>print FILE qq~
><meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
><h2>IPFW SHOW </h2>
> ~;
>print FILE `ipfw show`;
>
>closefile(FILE);
>******************
>
>Как сделать что бы вместо месева которое у меня на страниче был
>вывод как в консоли???
>Заренее благодарен! use format
perldoc -f format
|
Версия для распечатки
