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

[thread]16494[/thread]

Linux und Windows: Betriebssystemabhängig Module laden [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
Lebowski

2011-07-05 21:35
User since
2011-06-27
19 Artikel
BenutzerIn
Hallo zusammen,
eines meiner Perlscripte habe ich bis jetzt immer unter Linux (Ubuntu) ausgeführt.
Jetzt benötige ich die selbe Funktion auch unter Windows, nur dass ich dort einen Wert aus der Registry auslesen muss. Das mache ich mit
Code (perl): (dl )

1 2

use Win32API::Registry use Win32::TieRegistry
Sieht auch so aus, als benötige ich Win32::OLE.
Alle Windows spezifischen Sachen habe ich in Unterfunkionen, und über $^0 entscheide ich dann, welche Unterfunktion ich aufrufe.
Nun bekomme ich aber ein Problem, wenn ich das Script wieder unter Linux aufrufen, er meckert natürlich schon bei den Modulen.
Kann ich irgend wie verhindern, dass die windowsspezifischen Module geladen werden, wenn $^0 eq "linux"? Oder gibt's ein anderen Weg. ich möchte es nach Möglichkeit vermeiden zwei Skripte zu haben, da wirklich nur an wenigen Stellen etwas windowsspezifisches ist, und das Skript auf dem Server liegt und über eine Freigabe auf dem Client ausgeführt wird.

Lebowski
Last edited: 2011-07-05 21:39:16 +0200 (CEST)
- +7 replies
- pq
  
  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 )
  
  1 2 3 4 5
  
  BEGIN { if ($^O ne "linux") { eval "use Win32API::Registry; use Win32::TieRegistry; 1" or die $@; } }
  
  oder
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - FIFO
    
    2011-07-06 10:05
    
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    Hi, nur zur Vollständigkeit: $OSNAME ist $^O, nicht $^0 (Oh statt Null)
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - +2 replies
    - pq
      
      2011-07-06 10:18
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      danke, hatte das einfach aus dem artikel von lebowski kopiert...
      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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - Lebowski
        
        2011-07-06 17:07
        
        User since
        2011-06-27
        19 Artikel
        BenutzerIn
        
        Hi und danke,
        der eval-Block war/ist was ich suche ...
        
        Lebowski
  - +3 replies
  - Lebowski
    
    2011-07-10 00:35
    
    User since
    2011-06-27
    19 Artikel
    BenutzerIn
    
    Hallo.
    nun habe ich ein wenig rumprogrammiert und eval eingebaut.
    Für die Module klappt's, wie oben bechrieben.
    
    Bekomme aber ein Problem, wenn ich in einer Subroutine eine Funktion aus den Modulen verwende, die er ja natürlich nicht kennt.
    Nur weiß ich, dass die Subroutine unter den Umständen, dass das passende Modul nicht geladen wird, nicht ausgeführt wird. Das ist so im Programm "eingebaut".
    Gib es irgendeine Möglichkeit Perl anzuweisen, dass er nicht bei ersten Durchlauf die subroutinen auswertet. Bzw. bekommt man es mit eval hin.
    
    Lebowski
    - +2 replies
    - Linuxer
      
      2011-07-10 01:22
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Welches Problem hast Du denn? Wie sieht die Meldung aus?
      Wie sieht der relevante Code aus?
      Kannst Du mal ein Beispiel liefern, mit dem sich das Problem nachstellen lässt?
      
      So richtig eindeutig und klar finde ich Deine Beschreibung nicht.
      Was meinst Du mit "nicht bei ersten Durchlauf die subroutinen auswertet."?
      
      Ein Versuch, es zu erraten:
      
      Du könntest in Deinen Subroutinen an den relevanten Stellen auf die OS-Version testen.
      Wenn es das richtige OS ist (und damit die Module geladen werden konnten), dann kannst Du die Funktionen der Module einsetzen...
      
      more (5.0kb)
      
      Alternativ könnte man auch im BEGIN-Block bei erfolgreichen Modul-Laden eine entsprechende Variable setzen,
      und dann diese Variable prüfen. Das hätte den Vorteil, dass man nicht im gesamten Skript die Bedingung $^O ne 'linux' fest kodiert, sondern nur im BEGIN-Block und dementsprechend die Variable setzt.
      Last edited: 2011-07-10 01:26:45 +0200 (CEST)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - Lebowski
        
        2011-07-10 15:13
        
        User since
        2011-06-27
        19 Artikel
        BenutzerIn
        
        Danke, das Beispiel passt!

View all threads created 2011-07-05 21:35.