Funkcja pomocnicza
From Zakład Logiki Stosowanej
(Różnice między wersjami)
Junczys (Dyskusja | wkład)
(New page: <pre> sub to_xml { my $text = shift; $text = decode ("iso-8859-2", $text); $text =~ s/\n/ /g; $text =~ /<h1>(.*?)<\/h1>.*?<h5\sclass="author">(.*?)<\/h5>.*?<h6\sc...)
Następna edycja →
Wersja z dnia 13:38, 21 maj 2008
sub to_xml { my $text = shift; $text = decode ("iso-8859-2", $text); $text =~ s/\n/ /g; $text =~ /<h1>(.*?)<\/h1>.*?<h5\sclass="author">(.*?)<\/h5>.*?<h6\sclass="date">(.*?)<\/h6>/sig; my $title = $1; my $author = $2; my $date = $3; my $source = ''; if($text =~ m/<div\sid=\"source\">.*?<\/span>(.*?)<\/div>/sig){ $source = $1; } $text =~ s/<script.*?<\/script>//gsi; $text =~ /<h4>(.*?)<\/h4>.*<div id=\"artykul\">(.*?)<\/div>/si; my $summary = $1; my $content = $2; $summary =~ s/<br>/\n/gs; $content =~ s/<br>/\n/gs; $content =~ s/<span class="txt_srodtytul"><b>//gs; $content =~ s/<\/b><\/span>//gs; if($author and $content and $title) { print STDERR "\nAuthor:\t $author\n"; print STDERR "Title:\t $title\n"; print STDERR "Date:\t $date\n\n"; print "\nAuthor:\t $author\n"; print "Title:\t $title\n"; print "Date:\t $date\n\n"; } }