Parsirati specificne tagove...

[ vaske555 @ 04.04.2007. 08:10 ] @

Kako parsirati specificne tagove, recimo sledeceg oblika  izmedju  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...

[ vaske555 @ 05.04.2007. 11:53 ] @

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 =~ /(.*?)/){
        $text2 = $1;
     }

inspirise me izgleda kada postavim topik...

_{[Ovu poruku je menjao vaske555 dana 09.04.2007. u 12:06 GMT+1]}