Perlモジュールのバージョン確認

たとえばこのサーバにインストールされているCGI.pmのバージョンを確認したいなんて時は

perl -MCGI -e 'print $CGI::VERSION'

なんてコマンドを打ってやれば確認できますが、これをいちいち打つのはめんどくさいので、簡単なスクリプトを書いてみました。

#!/usr/bin/env perl
use strict;
use File::Basename;
use Getopt::Std;

getopts('v', \my %opt);

die "Usage: ". basename $0. "[-v]  [  ...]\n"
if @ARGV == 0;

no strict 'refs';

for (@ARGV) {
(my $path = $_) =~ s{::}{/};
eval {require "$path.pm"};
if ( $@ ) {
print "$_: not found.\n" if $opt{v};
} else {
print "$_: ", ${join '::',$_,'VERSION'}, "\n";
}
}