Linux und Windows: Betriebssystemabhängig Module laden (gelöst) - #150173 (Allgemeines zu Perl)

2011-07-05 21:43

User since
2003-08-04
12208 Artikel
Admin1

dann musst du das use in ein eval packen oder require nehmen:

Code (perl): (dl )

BEGIN {
    if ($^O ne "linux") {
        eval "use Win32API::Registry; use Win32::TieRegistry; 1" or die $@;
    }
}

oder

Code (perl): (dl )

BEGIN {
    if ($^O ne "linux") {
        require Win32API::Registry;
        require Win32::TieRegistry;
    }
}

im zweiten fall müsstest du aber von hand noch funktionen oder konstanten importieren, fall nötig.

Editiert von pq: s/0/O/
Last edited: 2011-07-06 10:17:58 +0200 (CEST)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem