Opened by Gerry at 2004-09-02 18:24
User since
2004-08-18
26 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-08-18
26 Artikel
BenutzerIn
Hallo ptk,
danke für den Tip ... ich hab's korrigiert und den Block SUB RUN_PERL_PROG sieht jetzt so aus:
Das (hoffentlich) letzte Problem ist nun, dass ich in der DOS Box keinerlei Output des aufgerufenen perl-programmes sehe. Der Inhalt des aufgerufenen perl-Programmes ist sehr simpel und ich wundere mich warum in der DOX-Box die Zeilen nicht angezeigt werden .... ich vermute mal wieder was ganz triviales.
danke für den Tip ... ich hab's korrigiert und den Block SUB RUN_PERL_PROG sieht jetzt so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# *****************************************************************************
# ** Sub Run_Perl_Prog ********************************************************
# *****************************************************************************
sub Run_Perl_Prog {
my $Get_Path = $laden_entry->get();
my $Get_File_Name = $Auswahl_Liste->get($Auswahl_Liste->curselection());
my $slash = "/";
print "Ausgewaehlter Pfad: $Get_Path\n";
print "Der Slash : $slash\n";
print "Ausgewaehlte Datei: $Get_File_Name\n";
print "$Get_Path$slash$Get_File_Name";
if(!$Get_Path || $Get_Path eq ''){
$mw->messageBox(-message=>" Zuerst ein Programm auswählen.",
-type=>"OK"),
return 1;
}
my $tmp_1 = "$Get_Path$slash$Get_File_Name";
my $tmp_2 = system(qx($^X $tmp_1));
}
Das (hoffentlich) letzte Problem ist nun, dass ich in der DOS Box keinerlei Output des aufgerufenen perl-programmes sehe. Der Inhalt des aufgerufenen perl-Programmes ist sehr simpel und ich wundere mich warum in der DOX-Box die Zeilen nicht angezeigt werden .... ich vermute mal wieder was ganz triviales.
Code: (dl
)
1
2
3
4
5
6
#!/usr/bin/perl
print "Zeile 1: Ich bin das Programm a.pl.\n";
print "Zeile 2: Ich bin das Programm a.pl.\n";
print "Zeile 3: Ich bin das Programm a.pl.\n";
print "Zeile 4: Ich bin das Programm a.pl.\n";
print "Zeile 5: Ich bin das Programm a.pl.\n";