Perlspringers Learn and Educate

Search This Blog

HTML EDITOR

on July 25, 2012

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Get link
Facebook
Twitter
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" unless($response->is_error); &file_write("$path/$

testing - interview

#!/usr/bin/perl use strict ; use warnings ; use 5.010 ; my @array = qw [ 10 15 20 25 30 ]; chomp ( my $in = < STDIN >); if ( $in < $array [ 0 ]) { say "$in is less than first element in the array" ; exit ; } if ( $in > $array [- 1 ]) { say "$in is greater than last element in the array" ; exit ; } for ( 0 .. $ #array) { if ( $in == $array [ $_ ]) { say "$in is in the array" ; exit ; } if ( $in < $array [ $_ ]) { if ( $in - $array [ $_ - 1 ] < $array [ $_ ] - $in ) { say "$in is closest to $array[$_ - 1]" ; } else { say "$in is closest to $array[$_]" ; } exit ; } } say "Shouldn't get here!" ;

Powered by Blogger

HTML EDITOR

Comments

Post a Comment