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";
    }
}

Technorati TAG Perlモジュール, バージョン確認,

Posted by horiuchi at 2004年09月10日 09:23