The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Формат текста в PERL"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Формат текста в PERL"
Сообщение от Friker emailИскать по авторуВ закладки(ok) on 26-Авг-04, 20:12  (MSK)
Элементарное дело, а у меня кривые руки....
Необходимо что-бы скрипт (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);
******************

Как сделать что бы вместо месева которое у меня на страниче был вывод как в консоли???
Заренее благодарен!

  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Формат текста в PERL"
Сообщение от XMan Искать по авторуВ закладки(??) on 26-Авг-04, 20:17  (MSK)
Заменить все переносы, которые есть в `ipfw show` на "<BR>" (без кавычек).
Читайте доки по HTML :)
  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Формат текста в PERL"
Сообщение от Friker emailИскать по авторуВ закладки(ok) on 26-Авг-04, 20:29  (MSK)
>Заменить все переносы, которые есть в `ipfw show` на "<BR>" (без кавычек).
>Читайте доки по HTML :)


Я и спрашиваю как это сделать. Я HTML знаю , ты видел как команда идёт?
Надо , только КАК ???

  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "Формат текста в PERL"
Сообщение от XMan Искать по авторуВ закладки(??) on 26-Авг-04, 21:16  (MSK)
На вскидку:

($_ = `ipfw show`) =~ s/\n/<BR>\n/g && print FILE || print FILE "ошибка";

В замене можно просто <BR> без \n. Это сделано для удобства чтения в виде текста.

  Рекомендовать в FAQ | Cообщить модератору | Наверх

4. "Формат текста в PERL"
Сообщение от mirya emailИскать по авторуВ закладки on 26-Авг-04, 21:33  (MSK)
print '<pre>', `my_shell_command`, '</pre>';

# в пре переносы остаются переносами, текст не врапается

  Рекомендовать в FAQ | Cообщить модератору | Наверх

5. "Формат текста в PERL"
Сообщение от XMan Искать по авторуВ закладки(??) on 26-Авг-04, 21:38  (MSK)
Мда... Про pre я как-то сразу и не подумал. Редко использую :)
  Рекомендовать в FAQ | Cообщить модератору | Наверх

6. "Формат текста в PERL"
Сообщение от chip Искать по авторуВ закладки(??) on 27-Авг-04, 08:36  (MSK)
>Элементарное дело, а у меня кривые руки....
>Необходимо что-бы скрипт (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


  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру