Perlspringers Learn and Educate

Search This Blog

grep seen

on July 02, 2020

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

my @filtered = uniq(@array);

sub uniq
{
my %seen;
grep !$seen{$_}++, @_;
}

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

grep seen

Comments

Post a Comment