Solved

check new version on the web

Posted on 2008-10-01
4
199 Views
Last Modified: 2010-03-05
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
Comment
Question by:blattamax
  • 2
  • 2
4 Comments
 
LVL 39

Expert Comment

by:Adam314
ID: 22618469

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
 

Author Comment

by:blattamax
ID: 22622280
thank u adam.. but dont work...

the output is


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

what wrong?
0
 

Author Comment

by:blattamax
ID: 22622397
this is the string to check
Latest <a href="/download/sources">ClamAV&trade; stable release</a> is: 0.94 <br />
0
 
LVL 39

Accepted Solution

by:
Adam314 earned 250 total points
ID: 22625221
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

Featured Post

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Strange perl issue 6 128
How to strip .csv from file name 9 81
Perl script not writing to .csv file 6 109
Perl regex to replace any capital letters not preceded by ">" 6 119
Many time we need to work with multiple files all together. If its windows system then we can use some GUI based editor to accomplish our task. But what if you are on putty or have only CLI(Command Line Interface) as an option to  edit your files. I…
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question