Variable aus externer Perl-Datei benutzen (gelöst) (Allgemeines zu Perl)

[thread]15892[/thread]

Variable aus externer Perl-Datei benutzen [gelöst]

Leser: 26

Articles: hide open all | hide show old branches

+5 replies
zaja

2011-01-26 14:40
User since
2011-01-26
8 Artikel
BenutzerIn
Hallo alle zusammen!
Ich bin ein absoluter Anfänger in Perl und habe folgendes Problem:
Mir wurden mehrere perl-Skripten zur Verfügung gestellt (Nennen wir sie 001.pl, 002.pl...), die folgendermaßen funktionieren: Ich weise einer $file_in Variablen den vollständigen Pfad zu Quelldatei und der $file_out Variablen den volsständigen Pfad und den Namen der nach dem Ablauf des Skriptes erzeugten Datei zu.

Um diese Skripte zu "bündeln" habe ich mit hilfe von Tk (und ActivePerl5.8.9)graphische Oberfläche geschrieben (GUI.pl). Benutzer sollte nun für jedes Skript Quelldatei-Link ($LinkQD) und Outputlink ($LinkOP) auswählen und durch Checkbuttons ankreuzen, welche von Skripten ausgeführt werden sollen.
In GUI.pl sieht es so aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#######Definition von GUI etc.######### . . my $001 = $Link./"001.pl"; # Vollständiger Pfad zu 001 Skript my $002 = $Link."/002.pl"; . . my $LinkQD001 = "Z:/muster/pfad/QD.txt"; # Link zur 001-Quelldatei my $LinkOP001 = "Z:/pfad/sonstnochwie/OP.txt"; #Link+Name der erzeugten Datei if ($check001) #entsprechender Checkbutton angekreuzt { system ("$001"); }
Entsprechendes Quellcode-Teil in 001.pl sieht so aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/opt/local/bin/perl use Math::Trig; use File::Find; use FindBin qw/$Bin/; my $main_file= "$Bin/GUI.pl"; open ( MAINFILE,'<'.$main_file) or die "Kann GUI nicht oeffnen\n"; my $file_in = $LinkQD001; my $file_out = $LinkOP001; open(IN,'<'.$file_in) || die "Can not open file $file_in $!"; open(OUT,'>'.$file_out); #####Quellcode, der funktioniert##### close IN; close OUT; close MAINFILE;
Mein Problem liegt an den Zeilen
my $file_in = $LinkQD;
my $file_out = $LinkOP;
da Perl zwar MAINFILE öffnet, übergibt aber nicht seine Variable an 001.pl.

Wie kann ich externe Variable in ein Skript einlesen?

Hoffenlich ist meine Frage kein riesiges Durcheinander..

Grüße

zaja
Last edited: 2011-01-26 14:42:49 +0100 (CET)
- +4 replies
- havi
  
  2011-01-26 16:17
  
  User since
  2003-08-04
  2036 Artikel
  BenutzerIn
  
  2011-01-26T13:40:26 zaja
  Wie kann ich externe Variable in ein Skript einlesen?
  
  Schau dir mal require an.
  
  ... evtl. noch besser wäre es ein Modul zu schreiben, im Wiki dieser Community findest du eine Anleitung wie das funktioniert.
  
  Last edited: 2011-01-26 16:23:19 +0100 (CET)
  Perl-Zeitung - http://perl-zeitung.at/
  Perl-Blog - http://usr-bin-perl.blogspot.com/
  - +3 replies
  - zaja
    
    2011-01-27 10:12
    
    User since
    2011-01-26
    8 Artikel
    BenutzerIn
    
    Danke! es funktioniert! Und so einfach war die Lösung!
    
    Ich habe mir schon überlegt das Modul zu schreiben. So weit ich verstanden habe muss aber dann MeinModul.pm in Bibliotheken abgelegt werden, oder? Würde mir nicht passen, da Gui.pl und zugehörige Skripte mobil sein sollen. Sprich in einem Ordner abgespeichert und auf jedem PC (wo Perl installiert ist) sofort ausführbar sein. Geht es vllt auch, dass PM-File nicht in Perl-Ordner abgespeichert ist?
    - +2 replies
    - pq
      
      2011-01-27 10:26
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das wäre traurig, wenn es nicht ginge.
      module können überall liegen.
      /foo/bar/Mein/Modul.pm ->
      
      Code: (dl )
      
      1 2
      
      use lib '/foo/bar'; use Mein::Modul; # meistens ist use require vorzuziehen
      
      edit:
      oder
      /foo/bar/script.pl /foo/bar/lib/Mein/Modul.pm
      
      Code: (dl )
      
      1 2 3 4
      
      # in script.pl use FindBin; use lib "$FindBin::Bin/lib"; # bindet automatisch das richtige verzeichnis ein use Mein::Modul;
      
      edit: fipptehler im pfad
      Last edited: 2011-01-27 10:31:07 +0100 (CET)
      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
      - zaja
        
        2011-01-27 11:31
        
        User since
        2011-01-26
        8 Artikel
        BenutzerIn
        
        Danke euch beiden!
        Werde Modul-Variante noch umsetzen!

View all threads created 2011-01-26 14:40.