17 June 2011

Removing a perl module


Use following script to remove the Installed perl module.

#!/usr/bin/perl

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;




Save above script as u.pl
# chmod +x u.pl

Running script 
# ./u.pl

e.g.
# ./u.pl 'Date::Manip'

It will remove the package Date::Manip

No comments:

Post a Comment