Perlspringers Learn and Educate

Search This Blog

Auto Ftp creation

on July 27, 2019

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

AutoFTP downloading and uploading

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Comments

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!" ;

HTML EDITOR

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/$

Powered by Blogger

Auto Ftp creation

AutoFTP downloading and uploading

Comments

Post a Comment