ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Volkov                      2:5020/400     16 Nov 2002  19:58:21
 To : Nikolay Pichtin
 Subject : Re: Разбор таблицы
 -------------------------------------------------------------------------------- 
 

 Доброе время суток, Nikolay.
 
 You wrote to All on Sat, 16 Nov 2002 12:53:28 +0300:
 
 NP>                            Добрый полдень All !
 
 NP>  Есть таблица в HTML.
 NP>  Hеобходимо получить данные из <td></td>
 NP>  Чем лучше это сделать?
 NP>  А если в таблице есть вложенные таблицы?
 NP>  А если у тегов таблицы есть какие-либо аттрибуты?
 
 NP>  А если у тегов таблицы есть какие-либо аттрибуты?
 С вложенными таблицами и с атрибутами colspan и rowspan придется немного
 повозиться, если хочется каким-нибудь умным образом интерпретировать
 результат.
 А так:
 
 $s = '<table width="100%" cellspacing="0" cellpadding="0" border="0">
 <tr>
   <td valign="top">
 1
   </td>
   <td valign="top">
 2
   </td>
   <td valign="top">
 3
   </td>
 </tr>
 <tr>
   <td valign="top">
 11
   </td>
   <td valign="top">
 22
   </td>
   <td valign="top">
 33
   </td>
 </tr>
 </table>';
 
 $s =~ s/<\/TABLE>//gi;
 $s =~ s/<TABLE.*?>//gi;
 $s =~ s/<\/TR>//gi;
 $s =~ s/<TR.*?>//gi;
 $s =~ s/<\/TD>//gi;
 $s =~ s/<TD.*?>/<TD>/gi;
 
 # можно добавить косметический эффект типа
 # $s =~ s/\n/ /g;
 # $s =~ s/ +/ /g;
 
 @r = split '<TD>',$s;
 print join "\n",@r;
 
 --
 Vladimir Volkov, at your service.  E-mail: vlad_volkov@vv.sovsem.net
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Разбор таблицы   Nikolay Pichtin   16 Nov 2002 13:53:28   Re: Разбор таблицы   Victor Wagner   16 Nov 2002 14:28:44   Re: Разбор таблицы   Vladimir Volkov   16 Nov 2002 19:58:21