Thread Perl-Skript mit grafischer Oberfläche: unterschiedliche Aufgabe im Skript (5 answers)
Opened by renee at 2005-09-19 14:08

Jojo
 2005-09-19 13:17
#44603 #44603
User since
2005-08-28
20 Artikel
BenutzerIn
[default_avatar]
Hallo,

Ich melde mich mal wieder zur Stelle mit folgendem Problem!!

Es soll ein Skript mithilfe des Tk-Moduls erstellt werden,das folgende Aufgaben beinhaltet!

Eine Ausgangsdatei im Textformat spezifizieren, wobei der User den Namen der Ausgangsdatei selbst festlegen kann. Die Datei soll durch Anklicken des Buttons soll die Datei eingelesen werden, wobei jeweils am Anfang einer Zeile eine fortlaufende Nummerierung erfolgen soll. Die Ausgabdatei soll generiert und der Ergebnistext in diese Datei ausgegeben werden. Über die grafische Oberfläche (Listbox) soll die erfolgreiche Ausführung angezeigt werden.

Bisher habe ich eine Textdatei erstellt und mit folgendem Coce einlesen lassen!


Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl

use strict;
undef $/;
my $text;

$text= <>;

while ($text=~m/Programmierung/g){
      print "Das Wort Programmierung wurde gefunden.\n";
}
close (DATEI);


Nun habe ich ein Frame erstellt, das folgenden Code hat!

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 #!/usr/bin/perl

use strict;

use Tk;

my $haupt = new MainWindows;

my $links=$haupt->Frame();
$links->Label(-text=>"Eingabe:")->pack();
my $datei=$links->Entry();
$datei->pack();

$links->Label(-text=>"Ausgabe:")->pack();
my $datei=$links->Entry();
$datei->pack();

my $schalter = $links->Button(-text=> "Eingeben",
             -command => \&eingeben  )->pack();

my $schalter2 = $links->Button(-text=> "Speichern",
              -command => \$speichern )-pack(-pady=> "20");


my $rechts =$haupt ->Frame();
$rechts->Label(-text=>"Ausgabefeld:")->pack();
my $datei=$rechts->Listbox();
$daten->pack();

$links->pack(-side->"left");
$rechts->pack(-side->"right");

MainLoop();


Wie bzw. an welcher Stelle dieses Skript's binde ich die verschiedenen Aufgaben ein?

Ich danke Euch schon einmal im Voraus!!!

Gruß an alle Jojo\n\n

<!--EDIT|renee|1127124410-->

View full thread Perl-Skript mit grafischer Oberfläche: unterschiedliche Aufgabe im Skript