checking module version

diamantis has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks!

I want to check if a few modules are newer from some version.

I am checking if they exist, e.g.:

BEGIN {
    my $mod = 'File::Spec';
    unless (eval "require $mod") {
        print "couldn't load $mod: $@";
    }
}
[download]

(code modified from Perl CookBook) Can I somehow check for the module version? I thought that eval "require module version" would work. Any suggestions ?? Thank you

Comment on checking module version Select or Download Code

Replies are listed 'Best First'.
Re: checking module version by Joost (Canon) on Jun 13, 2007 at 12:23 UTC
require() doesn't check the version of a module. use() does: `BEGIN { my $mod = 'File::Spec'; unless (eval "use $mod $version ()") { print "couldn't load $mod: $@"; } }` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^2: checking module version by ikegami (Patriarch) on Jun 13, 2007 at 13:54 UTC
`unless (eval "use $mod $version ()") {` should be `unless (eval "use $mod $version (); 1") {` since `use` doesn't have a (documented) return value.	[reply] [d/l] [select]
Re: checking module version by andreas1234567 (Vicar) on Jun 13, 2007 at 12:46 UTC
Take a look at Extutils::Installed and Sort::Versions. `$ perl -wl use strict; use ExtUtils::Installed; my $instmod = ExtUtils::Installed->new(); foreach my $module ($instmod->modules()) { print $module; print $instmod->version($module); } __END__ Algorithm::Diff 1.1902 Apache::Session 1.80 Archive::Tar 1.30 Archive::Zip 1.16 Array::RefElem 1.00 ...` [download] -- print map{chr}unpack(q{A3}x24,q{074117115116032097110111116104101114032080101114108032104097099107101114})	[reply] [d/l]
Re: checking module version by citromatik (Curate) on Jun 13, 2007 at 12:23 UTC
from perldoc -f use use Module VERSION LIST citromatik	[reply]
Re: checking module version by sen (Hermit) on Jun 13, 2007 at 12:40 UTC
Hi, try this one-liner: `perl -M<module> -e 'print "$<module>::VERSION"'`	[reply] [d/l]
Re: checking module version by ikegami (Patriarch) on Jun 13, 2007 at 13:50 UTC
`>perl -e "require File::Spec; File::Spec->VERSION(3.25)" File::Spec version 3.25 required--this is only version 3.12 at -e line + 1.` [download] `VERSION` is documented in UNIVERSAL.	[reply] [d/l] [select]
Re: checking module version by sago (Scribe) on Jun 14, 2007 at 10:56 UTC
ExtUtils::Installed provides a standard way to find out what core and module files have been installed, and also the versions. #!/usr/local/bin/perl use ExtUtils::Installed; my $instmod = ExtUtils::Installed->new(); foreach my $module ($instmod->modules()) { my $version = $instmod->version($module) \|\| "???"; print "$module -- $version\n"; } produces the following list of modules and their version Apache::DBI -- 0.87 Apache::DBILogConfig -- 0.01 Apache::DBILogger -- 0.93 AppConfig -- 1.52 Archive::Tar -- 0.22 BerkeleyDB -- 0.06 . . . . . Try to execute the above program to find the modules that have been already installed and their versions.	[reply]

print map{chr}unpack(q{A3}x24,q{074117115116032097110111116104101114032080101114108032104097099107101114})