Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Graphische Oberflächen
[thread]4834[/thread]

Dynamisches Füllen einer LISTBOX ???: Directory lesen und LISTBOX füllen ??? (Seite 2)



<< |< 1 2 >| >> 15 Einträge, 2 Seiten
ptk
 2004-09-03 21:38
#42646 #42646
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Quote
Code: (dl )
my $tmp_2 = system(qx($^X $tmp_1));


system und qx ist doppelt gemoppelt. Du willst wahrscheinlich nur qx() hier.
Gerry
 2004-09-03 22:29
#42647 #42647
User since
2004-08-18
26 Artikel
BenutzerIn
[default_avatar]
Hallo ptk,

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";
ptk
 2004-09-03 22:46
#42648 #42648
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Ich sehe keine Korrektur...
Gerry
 2004-09-04 00:44
#42649 #42649
User since
2004-08-18
26 Artikel
BenutzerIn
[default_avatar]
OK, ich hätte einfach den richtigen Code reinkopieren sollen.

Here we go ...

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 "Kompletter String : $Get_Path$slash$Get_File_Name\n";
     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 = qx($^X $tmp_1);
}
ptk
 2004-09-04 01:32
#42650 #42650
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Der Output befindet sich in $tmp_2. Wenn du den Output im Terminal sehen willst, musst du system() statt qx() verwenden.
<< |< 1 2 >| >> 15 Einträge, 2 Seiten



View all threads created 2004-09-02 18:24.