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