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/; } Thank you, Wernher On Fri, Feb 21, 2014 at 4:27 PM, Shawn H Corey <shawnhco...@gmail.com>wrote: > On Fri, 21 Feb 2014 16:21:57 +0200 > Wernher Eksteen <crypt...@gmail.com> wrote: > > > Hi all, > > > > From the below file names I only need the version number 1.2.4 without > > explicitly specifying it. > > > > 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 > > > > What regex can I use to obtain only the string value 1.2.4 from the > > file names (or whatever future versions based on the 3 numbers > > separated by 3 dots, [0-9].[0-9].[0-9]? > > > > Thanks! > > Wernher > > /\b(\d+\.\d+\.\d+)\b/ > > > -- > Don't stop where the ink does. > Shawn > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > >
