Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 231
  • Last Modified:

check new version on the web

i have to check when  a new version of antivirus is released on the web , i have planned to do a cron job in perl that checks a url .
The string to search in index.html is "<p>Latest <a href="/download/sources">ClamAV&trade; stable release</a> is: 0.94 <br />"  and i have to extract the version of this software for compare with mine .

have some idea???
0
blattamax
Asked:
blattamax
  • 2
  • 2
1 Solution
 
Adam314Commented:

use LWP::Simple;
 
my $content = get('http://the.site.here/the/page/here');
die "Could not get content\n" unless $content;
 
my ($ver) = $content =~ /<p>Latest <a href="\/download\/sources">ClamAV&trade; stable release<\/a> is: ([\d\.]+)/;
 
print "Lastest version = $ver\n";
#Check $ver with whatever version you have

Open in new window

0
 
blattamaxAuthor Commented:
thank u adam.. but dont work...

the output is


[root@issrepo01 ~]# ./test.pl
Lastest version =
[root@issrepo01 ~]#

what wrong?
0
 
blattamaxAuthor Commented:
this is the string to check
Latest <a href="/download/sources">ClamAV&trade; stable release</a> is: 0.94 <br />
0
 
Adam314Commented:
What is the output from this:
use LWP::Simple;
 
my $content = get('http://the.site.here/the/page/here');
die "Could not get content\n" unless $content;
 
if($content =~ /<p>Latest <a href="\/download\/sources">ClamAV&trade; stable release<\/a> is: ([\d\.]+)/) {
    print "Lastest version = $ver\n";
}
else {
    print "Could not determine latest version.  Content:\n$content\n";
}

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now