卸载Perl中的模块

时间：2008-12-24 来源：fall_bernana

在你的命令搜索目录中添加一个脚本命名为rmperlmod.pl并赋于可执行权限，将以下内容（cpan的faq中的脚本）添到脚本中：

#!/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;

　　用法如下：

[root@supersun bin]# rmperlmod.pl DBD::mysql
removing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Bundle/DBD/mysql.pm
removing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/DBD/mysql.pm
removing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/DBD/mysql/GetInfo.pm
removing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/DBD/mysql/INSTALL.pod
removing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto/DBD/mysql/mysql.bs
removing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto/DBD/mysql/mysql.so
removing /usr/share/man/man3/Bundle::DBD::mysql.3pm
removing /usr/share/man/man3/DBD::mysql.3pm
removing /usr/share/man/man3/DBD::mysql::INSTALL.3pm
removing /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto