Opened by zaja at 2011-01-26 14:40
User since
2011-01-26
8 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
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:
Entsprechendes Quellcode-Teil in 001.pl sieht so aus:
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)
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)