Perlspringers Learn and Educate

Search This Blog

POST2

on October 09, 2013

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Comments

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

POST2

Comments

Post a Comment