Posted By

archlight on 01/04/09

Tagged

ie
html

Versions (?)

Last Edited at 01/04/09 08:03pm

Statistics

Viewed 715 times

Favorited by 1 user(s)

Related snippets

Internet related perl script

/ Published in: Perl

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

//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());