Advanced Search

Return to Snippet

Revision: 10566
at January 4, 2009 20:03 by archlight
Initial Code 
//simple http request
    use LWP::Simple;
    use LWP::UserAgent; 

sub httpreq {
    my($srcpath, $destpath) = @_; 
    
    my $user_agent = LWP::UserAgent->new;            
    my $request = HTTP::Request->new('GET', $srcpath);
    my $response = $user_agent->request ($request, $destpath);

}

//IE automation
    use Win32::IEAutomation;
    my $ie = Win32::IEAutomation->new( visible => 1, maximize => 1);
    $ie->gotoURL('http://www.bega.de/index.php?sprache=en');

//HTML builder
//used for parse html contents into tree structured array for easy searching
my $right = $ie->getFrame('name:',"pib");
my $root = HTML::TreeBuilder->new_from_content($right->Content());
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Internet related perl script

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
ie, html

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl