一个朋友给的,但是记得有点问题,只能显示,删除源码安装的。
perlinstall.pl

#!/usr/bin/perl 
use ExtUtils::Installed; 
my $instmod = ExtUtils::Installed->new(); 
foreach my $module ($instmod->modules()) { 
my $version = $instmod->version($module) || "version unknow!"; 
print "$module -- $version\n"; 
} <!--more-->

perluninstall.pl

#!/usr/bin/perl -w
use ExtUtils::Packlist;
use ExtUtils::Installed;
$ARGV[0] or die "Usage: $0 Module::Name\n";
my $mod = $ARGV[0]; 
my $inst = ExtUtils::Installed->new();    
   foreach my $item (sort($inst->files($mod))) {             
                           print "removing $item\n";             
                           unlink $item;          
                        }     
   my $packfile = $inst->packlist($mod)->packlist_file();          
               print "removing $packfile\n";          
               unlink $packfile;

2 thoughts on “检查源码安装的perl模块”

发表评论

电子邮件地址不会被公开。 必填项已用*标注