Perlspringers Learn and Educate

Search This Blog

GUI PERL

on March 26, 2012

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

GUI PERL

Comments

Post a Comment