Re: PerlModul aktualisieren

26 Jul 2012

      Hallo,

Am Wed, 25 Jul 2012, Lentes, Bernd schrieb:
...
afaik gibt es ja keine Möglichkeit, ein perl-Modul zu deinstallieren,
außer händisch alles zu löschen.
Wenn das Modul MakeMaker/ExtUtils::Install verwendet:

==== perluninstall.pl ====
#!/usr/bin/perl
### nope, no '-w', we 'use warnings' later.
#
### Copyright (c)2004 David Haller <david@dhaller.de>
###   This program is free software; you can redistribute it and/or
###   modify it under the same terms as Perl itself.

use strict;
use ExtUtils::Installed;

# we don't want to die, if some module is not installed, we want to
# continue with the next module, therefore we redefine croak which
# ExtUtils::Installed calls in that case.
sub Carp::croak { print STDERR, @_, "\n"; return 1; }

use warnings;
use ExtUtils::Install;
use File::Basename;

my $verbose = 1;
my $test = 0;
my @MODULES;
my $USAGE ="Usage: " . basename($0)
    . " [--test] [--quiet] [--help] MODULE ...\n";

die "$USAGE" if($#ARGV < 0);

foreach(@ARGV) {
    if(/^--test$/) {
        $test = 1;
    } elsif(/^--quiet$/) {
        $verbose = 0;
    } elsif(/^--help$/) {
        print "$USAGE";
        exit(0);
    } elsif(/^-/) {
        die "Unknown option $_\n$USAGE";
    } else {
        push @MODULES, $_;
    }
}
die "$USAGE" if $#MODULES < 0;

my $installed = new ExtUtils::Installed;

print "==== test mode ====\n" if $test;

foreach my $module (@MODULES) {
    print "\n";
    my $version = $installed->version($module) or next;
    print "Found module $module, version $version\n";
    print "do you want to uninstall this module? [y/N] ";
    my $r = <STDIN>; chomp($r);
    if($r && $r =~ /^y/i) {
        my $pl = $installed->packlist($module)->packlist_file();
        uninstall($pl, $verbose, $test);
    }
}
1;
__END__
====
...
Ich habe folgendes Problem: Ich habe eine ältere Version von BioPerl
(Toolsammlung für BioInformatiker), brauche aber eine aktuellere.
Kann ich da einfach drüber installieren, ohne Probleme zu kriegen ? 
Meine Idee war, den Ordner der alten Installation umzubennen, dann
ist dieses PerlModul für perl einfach weg, und dann die neue Version
zu installieren.
Any ideas ?
Mach ein RPM draus. cpanspec hilft dabei.

HTH,
-dnh

-- 
Q: What do you call it when you really *do* get different results every
time you do the same thing?
A: Windows
-- 
Um die Liste abzubestellen, schicken Sie eine Mail an:
    opensuse-de+unsubscribe@opensuse.org
Um den Listen Administrator zu erreichen, schicken
Sie eine Mail an: opensuse-de+owner@opensuse.org