perl url gond
Sziasztok,
írtam egy kis kódot ami egy megadott url alól feldolgoz egy html-oldalt, és
abban megkeres egy url-t.
azzal nincs gond hogy mgekeresse, de ha ezzel az url-el meghívom mégegyszer magát akkor nem fut le.
nem történik semmi.
És nem értem miért.
a kód:ha kiíratom akkor az az url van ott, és úgy ahogy a html-ben.
ha beírom ezt az url-t magába a rutinba akkor meg lefut.
ha összehasonlítom őket akkor, az eredmény semmi, olyan mintha a kinyert url nem
skaláris lenne.
remélem valakinek van valami ötlete.
előre is köszönöm
■ írtam egy kis kódot ami egy megadott url alól feldolgoz egy html-oldalt, és
abban megkeres egy url-t.
azzal nincs gond hogy mgekeresse, de ha ezzel az url-el meghívom mégegyszer magát akkor nem fut le.
nem történik semmi.
És nem értem miért.
a kód:
...
my $url;
$url = "$url = "http://www.domain.hu/pk.id?ID=10812";";
&html_feld($url);
sub html_feld {
my $content = get $url || die;
my ($content) = ( $content =~ m!<body[^>]*>(.*)</body>!si );
utf8::encode($content);
....
$content =~ s/<a(.*?)ID=(.*?)>(.*) »<\/a>/lasturl/g;
$& =~ m/<a href="(.*)">.*<\/a>/g;
$url = $1;
# megtalálja az utolsó urlt
print $url;
# print out
# http://www.domain.hu/pk.id?ID=10812&name=qwerty&results=100
# tehát elméletileg jó az url, de nem fut le ha meghívom vele
#elenben ha ide beszúrom ua. azt url-t kézzel, akkor meg megy
# $url = http://www.domain.hu/pk.id?ID=10812&name=qwety&results=100
&html_feld($url);
}ha beírom ezt az url-t magába a rutinba akkor meg lefut.
ha összehasonlítom őket akkor, az eredmény semmi, olyan mintha a kinyert url nem
skaláris lenne.
remélem valakinek van valami ötlete.
előre is köszönöm
