Solved

check new version on the web

Posted on 2008-10-01
4
191 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
perl script help 5 233
Perl for loop for 2000 ms 7 97
ppm conversion to curl on a module install 8 80
combine multiple lines 2 44
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
On Microsoft Windows, if  when you click or type the name of a .pl file, you get an error "is not recognized as an internal or external command, operable program or batch file", then this means you do not have the .pl file extension associated with …
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…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …

895 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

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now