Skip to main content

Browse the archive

Revision 692791aa30d253bd2ff83397d0dc1a74b5b52adb authored by Jacques Dainat on 13 July 2021, 09:39:32 UTC, committed by GitHub on 13 July 2021, 09:39:32 UTC 
Update gxf.md
 
formatting
1 parent 449fcc0
Raw File
uninstall_AGAT 
#usage: perl uninstall_AGAT
use 5.14.2;
use ExtUtils::Installed;
use ExtUtils::Packlist;

my $module = "AGAT";

my $installed_modules = ExtUtils::Installed->new;

# iterate through and try to delete every file associated with the module
foreach my $file ($installed_modules->files($module)) {
    unlink $file or warn "could not remove $file: $!\n";
}

# delete the module packfile
my $packfile = $installed_modules->packlist($module)->packlist_file;
print "removing $packfile\n";
unlink $packfile or warn "could not remove $packfile: $!\n";

# delete the module directories if they are empty
foreach my $dir (sort($installed_modules->directory_tree($module))) {
    print("removing $dir\n");
    rmdir $dir or warn "could not remove $dir: $!\n";
}
back to top