Perlspringers Learn and Educate

Search This Blog

GUI PERL

on March 26, 2012

Get link
Facebook
X
Pinterest
Email
Other Apps

Get link
Facebook
X
Pinterest
Email
Other Apps

Comments

DOWNLOAD ONLINE PDF

use LWP; use URI::Escape; use File::Basename; use File::Path qw(make_path); $url = 'samplesamle.com/sample'; my $browser = LWP::UserAgent->new; my $response = $browser->get($url); die "Can't get $url -- ", $response->status_line unless $response->is_success; my $html = $response->content; #print "Html--> ".$html."\n"; while($html =~ /(<a href="\/(([^\;]+).pdf);)/igs){ $image_name = $2; # print "Image--> ".$image_name."\n"; $image_full = $url."".$image_name; my $browser1 = LWP::UserAgent->new; my $response1 = $browser1->get($image_full); #my $html1 = $response1->content; my ($name,$path,$suffix) = fileparse($image_full); # print "p--> ".$path."\n"; $path =~ s/^(http|src):\/\///igs; make_path($path); #print "->".$html."\n" unl...

Auto Ftp creation

AutoFTP downloading and uploading

HTML EDITOR

Powered by Blogger

GUI PERL

Comments

Post a Comment