форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

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

"Помогите с регулярными выражениями в perl"
Сообщение от daemon on 25-Сен-03, 10:51  (MSK)
Я копирую страницу с uefa.com в переменную, например $content, откуда мне необходимо получить результаты матча, например, Man. Utd 3:2 Dynamo Kyiv Как с помощью регулярных выражений извлечь счет по матчу между этими командами, ПОДСКАЖИТЕ please?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

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

Сообщения по теме

1. "Помогите с регулярными выражениями в perl"
Сообщение от konst on 25-Сен-03, 16:50  (MSK)
>Я копирую страницу с uefa.com в переменную, например $content, откуда мне >необходимо получить результаты матча, например, >Man. Utd 3:2 Dynamo Kyiv > >Как с помощью регулярных выражений извлечь счет по матчу между этими командами, >ПОДСКАЖИТЕ please? Если эту страницу генерит скрипт - значит там шаблонный html-код - надо его проанализировать (мысленно) - понять в каком месте встречается то, что интересует (счет) и что там есть уникального - за что можно было бы зацепится. Напр. Если html-код счета различных  матчей в html выглядят однообразно <tr><td class=komanda>   команда 1 </td><td class=schet> 2:3 </td><td class=komanda> команда 2 </td></tr> то надо (как вариант) 1. $content =~ s/[\r\n]+//g; 2. $content =~ s/<tr/\n<tr/g; @tr = spit('\n',$content); foreach $z (@tr) { if (/class=komanda>(.+?)<\/td><td.+?=schet>(.+?)<\/td><td.+=komanda>(.+?)<\/td>/) {   print "$1 - $3 = $2\n"; } }
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Помогите с регулярными выражениями в perl"
	Сообщение от daemon on 26-Сен-03, 10:55  (MSK)
	Вот как выглядит кусочек этого самого html'a: <td class="FixturesBody" valign="top" align="right" width="145" title="Manchester United FC">Man. United</td><td class="FixturesBody" valign="top" align="center" width="41">5-0</td><td class="FixturesBody" valign="top" width="145" title="Panathinaikos FC">Panathinaikos</td> на экране мы видим при этом: Man. United 5-0 Panathinaikos
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Помогите с регулярными выражениями в perl"
	Сообщение от konst on 26-Сен-03, 11:19  (MSK)
	>Вот как выглядит кусочек этого самого html'a: > ><td class="FixturesBody" valign="top" align="right" width="145" title="Manchester United FC">Man. United</td><td class="FixturesBody" valign="top" align="center" width="41">5-0</td><td class="FixturesBody" valign="top" width="145" title="Panathinaikos FC">Panathinaikos</td> Если это 1 строка - то проще: #одна строка $content =~  /<td class="FixturesBody" valign="top" align="right" width="145" title="[^"]+">([^<>]+)<\/td><td class="FixturesBody" valign="top" align="center" width="41">([^<>]+)<\/td><td class="FixturesBody" valign="top" align="right" width="145" title="[^"]+">([^<>]+)<\/td>/; print "$1 - $3 счет $2\n";
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

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