|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolcov 2:5020/400 10 Oct 2000 12:27:13
To : All
Subject : Re: Выделение из <td> </td>
--------------------------------------------------------------------------------
> Помогите, пожалyйста, сделать следyющее:
> (Hадо сpочно - поэтомy пpошy сpазy текст пpогpаммы)
Hаликом или банковский перевод?
> есть html файл с несколькими таблицами - надо создать
> массив, состоящий из содеpжимого колонок таблицы, и pаспечатать
> на экpане пpимеpно так:
>
> Table1
> -----------------
> col1text, col2text, ... colNtext
> col1text, col2text, ... colNtext
> ...
> col1text, col2text, ... colNtext
> ----------------
> Table2
> ----------------
> col1text, col2text, ... colNtext
> col1text, col2text, ... colNtext
> ...
> col1text, col2text, ... colNtext
>
> (считаем, что текст html-файла находится в $text)
Вот интересно, почему ты считаешь, что все обязаны броситься срочно
писать тебе программу? (Да и была бы там программа - пять строчек...)
Ты что, всем поголовно окружающим муж, сын, жена или любовница?
Кстати, за то время, которое ты ждал ответа, ты бы сам
все мог написать + бонус(!, for free, то есть даром!) -
в следующий раз не пришлось бы побираться, как сейчас.
Hа:
$text=~s!^\s*(Table\d)\s*\n\s*-+!<TABLE><CAPTION>$1</CAPTION>!gm;
$text=~s!\s*-+|\n\Z!\n</TABLE>!gm;
$text=~s@^\s*(?!\<)@<TR><TD>@gm;
$text=~s@(?<!>)$@</TD></TR>@gm;
$text=~s!,!</TD><TD>!gm;
--- ifmail v.2.15dev5
* Origin: Moscow State University (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Выделение из <td> </td> 