Thanks, I've changed it to use LWP.
I'm not sure how to download the actual file with LWP, so I've tried
File::Fetch which works, but it doesn't show download progress/status etc,
just hanging blank until the download completes. Any pointers on getting
download status/progress details?
foreach my $i (@fileList2) {
my $file = "$url/$i" if $i =~ m/$getMenuItem/g;
chomp($file);
my $ff = File::Fetch->new(uri => "$file");
my $where = $ff->fetch() or die $ff->error;
}
Thanks,
Wernher
On Sun, Feb 23, 2014 at 4:35 PM, shawn wilson <ag4ve...@gmail.com> wrote:
> Use LWP to get web data - not lynx and the like unless you can't help it.
> I prefer using Web::Scraper to parse html but either way it's probably best
> not to use a regex (see SO and similar for discussions on the like).
>
> On Feb 23, 2014 8:13 AM, "Wernher Eksteen" <crypt...@gmail.com> wrote:
> >
> > Hi,
> >
> > Thanks, but how do I assign the value found by the regex to a variable
> so that the "1.2.4" from 6 file names in the array @fileList are print only
> once, and if there are other versions found say 1.2.5 and 1.2.6 to print
> the unique values from all.
> >
> > This is my script thus far. The aim of this script is to connect to the
> site, remove all html tags and obtain only the file names I need.
> >
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > # initiating package names to be used later
> > my @getList;
> > my @fileList;
> >
> > # get files using lynx and parse through it
> > my $url = "http://mathias-kettner.com/download";;
> > open my $in, "lynx -dump $url |" or die $!;
> >
> > # get the bits we need and push it to an array to further filter what we
> need
> > while(<$in>){
> > chomp;
> > if( /\[(\d+)\](.+)/ ){
> > next if $1 == 1;
> > push @getList, "$2\n";
> > }
> > }
> >
> > # filter only the files we need into final array
> > foreach my $i (@getList) {
> > my @list = split /\s+/, $i;
> > push @fileList, "$list[0]\n", if $i =~ /rpm|tar/ && $i !~ /[0-9][a-z]/;
> > }
> >
> > # print the list
> > print "\nList of files to be retrieved from $url:\n\n @fileList\n";
> >
> > The output is then:
> >
> > List of files to be retrieved from http://mathias-kettner.com/download:
> >
> >
> > check_mk-1.2.4.tar.gz
> > check_mk-agent-1.2.4-1.noarch.rpm
> > check_mk-agent-logwatch-1.2.4-1.noarch.rpm
> > check_mk-agent-oracle-1.2.4-1.noarch.rpm
> > mk-livestatus-1.2.4.tar.gz
> > mkeventd-1.2.4.tar.gz
> >
> > From that I want to get the value 1.2.4 and assign it to a variable, if
> there are more than one value such as 1.2.5 and 1.2.6 as well, it should
> print them too, but only the unique values.
> >
> > My attempt shown below to print only the value 1.2.4 is as follow, but
> it prints out "1.2.41.2.41.2.41.2.41.2.41.2.4" next to each other, if I
> pass a newline to $i such as "$i\n" it then prints "111111" ?
> >
> > foreach my $i (@fileList) {
> > print $i =~ /\b(\d+\.\d+\.\d+)\b/;
> > }
> >
>
> The 1s are all of the returns of true (or one match). You want to print
> "$i\n" if (foo)
>
