With the following code i want to get the url of the first link (which come from a query at google.com). My target token is <a href=http://www.hotmail.com/> and i want to get http://www.hotmail.com from there, but my program get the first letter "a". I couldn't find any way to access the rest of the token. Any one can do that ?
#!/usr/local/bin/perl use LWP::UserAgent; use HTML::TokeParser; $tokencounter=0; print "Content-type:text/html\n\n"; $options{"agent"}="Mozilla/4.6 [en] (XII; I; SunOS 5.7 sun4u)"; my $agent=new LWP::UserAgent(%options); $request=new HTTP::Request('GET'=> "http://www.google.com/search?hl=tr&q=hotmail&lr="); $response=$agent->request($request); $response->is_success() || die("error".$response->status_line())."\n"; $page=new HTML::TokeParser(\($response->content())); while($token=$page->get_token()){ $type=shift(@$token); $text=shift(@$token); if($type eq "S" and $text eq ("p" or "P")){ $tokencounter=$tokencounter+1; if($tokencounter eq 2){ $token=$page->get_token(); $token=$page->get_url(); $type=shift(@$token); $text=shift(@$token); print $text; print "\n"; } } } _________________________________________________________________ Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]