|
Тема |
Re: Za Perl i drugite ezici i koi kolko razbira [re: martyr] |
|
Автор |
supremacy (phantom) |
|
Публикувано | 26.02.07 14:20 |
|
|
за бурне шел съм съгласен, но за Пърл промених мнението си (поради Руби).
разбира се, все още няма Руби клас, който да е достоен аналог на това, което липсва във всеки език, освен в Пърл -
колко по-лесно да е от това?
#!/usr/bin/perl
use WWW::Mechanize;
my $url = 'http://weather.bg/bg/indnew1.php?glaven=progn';
my $mech = WWW::Mechanize->new(autocheck => 1);
$mech->agent_alias('Linux Mozilla');
$mech->get($url);
for($mech->links){
$_->url_abs =~ /srednosrochna/ or next;
$mech->get($_->url_abs);
$mech->content =~ m{(Изгледи за времето.+?)(<.+?)НИМХ-БАН}s;
my $title = $1;
my $week = $2;
$week =~ s/\r//g;
$week =~ s/<.+?>//g;
$week =~ s/\S+\s+\S+\s*$//s;
warn $title,$/;
die $week,$/;
}
|
| |
|
|
|