use strict[color=#800080; ];[/color] [color=#696969; ]# strict, всегда strict![/color] use LWP::Simple [color=#808030; ]/[/color]get[color=#808030; ]/[/color][color=#800080; ];[/color] [color=#696969; ]# импортируем нашу функцию и только её, нефиг мусорить[/color] [color=#696969; ]# Утянем страницу[/color] [color=#696969; ]# Для простоты запишем в переменную по умолчанию.[/color] $_[color=#808030; ]=[/color]get[color=#808030; ]([/color][color=#0000e6; ]"[/color][color=#5555dd; ]http://pda.gismeteo.ru/27612.htm[/color][color=#0000e6; ]"[/color][color=#808030; ])[/color][color=#800080; ];[/color] [color=#696969; ]# Нужный нам фрагмент (хотим поглядеть макс. температуру на сегодня) на странице такой:[/color] [color=#696969; ]# | Максимальная температура | [/color] [color=#696969; ]# -7 -9 | [/color] [color=#696969; ]# Вот по нему и ищем:[/color] [color=#696969; ]# (Одновременно выходя с ошибкой, если не нашли)[/color] die [color=#0000e6; ]"Не могу оределить температуру!"[/color] [color=#808030; ]unless[/color][color=#0000e6; ] [/color][color=#800000; ]/[/color][color=#0000e6; ].^[/color][color=#007997; ]*Максимальная[/color][color=#0000e6; ]
TheFreak, 04.02.2004 18:01:01:Попробовал. Это что-то!
Почитал описание самого языка... Сильно.