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;
}
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