Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Parsirati specificne tagove...

[es] :: Perl :: Parsirati specificne tagove...

[ Pregleda: 3270 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

vaske555
Milan Vasic
Stari Zednik

Član broj: 42246
Poruke: 79
212.200.52.*

ICQ: 287637844
Sajt: www.milanvasic.com


Profil

icon Parsirati specificne tagove...04.04.2007. u 08:10 - pre 206 meseci
Kako parsirati specificne tagove, recimo sledeceg oblika <!-- Nesto--> izmedju <!-- Nesto --> meni treba ono izmedju da se izvadi.

evo koda koji vadi iz obicnih tagova reci
recimo tagova title

Code:

sub change {
    my ($html) = shift;
    my $p = HTML::TokeParser->new(\$html);
    my $body = $p->get_tag("title");
    my $text = $p->get_trimmed_text("/title");
    $text =~ s/\240/ /g; 
    $text =~ s/\s+/ /g;
    $text;
}


inace u pitanju je parsiranje html stranica....u ovom mom slucaju...

Vaske
 
Odgovor na temu

vaske555
Milan Vasic
Stari Zednik

Član broj: 42246
Poruke: 79
212.200.52.*

ICQ: 287637844
Sajt: www.milanvasic.com


Profil

icon Re: Parsirati specificne tagove...05.04.2007. u 11:53 - pre 206 meseci
uradio sam ja

Code:



.... 
    my $ua = new LWP::UserAgent;
    $url =~ s/^"//;
    $url =~ s/"$//;
    my $res = $ua->get($url);
    $pom =  $res->content;
    $text2 = $pom;
    $text2 =~ s/\n//g;  # stavite da bude sve u jednom redu...:)

    if ($text2 =~ /<!-- BLA BLA -->(.*?)<!-- BLA BLA -->/){
        $text2 = $1;
     }
     



inspirise me izgleda kada postavim topik...

[Ovu poruku je menjao vaske555 dana 09.04.2007. u 12:06 GMT+1]
Vaske
 
Odgovor na temu

[es] :: Perl :: Parsirati specificne tagove...

[ Pregleda: 3270 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.