Opened by Gast at 2006-05-12 11:10
Hallo zusammen,
ich bin gerade dabei mich in Perl mit TK einzuarbeiten. Ich stehe jetzt vor dem Problem, dass ich eine Datei einlesen möchte, einen Namen für eine Ausgabedatei wählen will und dieser Ausgabedatei eine fortlaufende Zeilennummerierung geben möchte.
Kurz und knapp:
1. Eine Textdatei einlesen (die ich vorher im Frontend angebe)
2. Eine Ausgabedatei festlegen (auch über das Frontend)
3. Die eingelesende Textdatei mit einer Zeilennummerierung in den vorgegebenen Namen der Ausgabedatei abspeichern
Hat jemand schon einmal so etwas gemacht??
Wäre über jede Hilfe sehr dankbar.
Gruß
Thomas
ich bin gerade dabei mich in Perl mit TK einzuarbeiten. Ich stehe jetzt vor dem Problem, dass ich eine Datei einlesen möchte, einen Namen für eine Ausgabedatei wählen will und dieser Ausgabedatei eine fortlaufende Zeilennummerierung geben möchte.
Kurz und knapp:
1. Eine Textdatei einlesen (die ich vorher im Frontend angebe)
2. Eine Ausgabedatei festlegen (auch über das Frontend)
3. Die eingelesende Textdatei mit einer Zeilennummerierung in den vorgegebenen Namen der Ausgabedatei abspeichern
Hat jemand schon einmal so etwas gemacht??
Wäre über jede Hilfe sehr dankbar.
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!/usr/bin/perl -w
use strict;
use Tk;
my $haupt = new MainWindow;
my $links= $haupt->Frame();
$links->Label(-text => "Ausgangsdatei:")->pack();
my $ausgang = $links->Entry();
$ausgang->pack();
$links->Label(-text => "Ausgabedatei:")->pack();
my $ausgabe = $links->Entry();
$ausgabe->pack();
my $schalter = $links->Button(-text => "Einlesen",
-command => \&einlesen
)->pack();
my $schalter2 = $links->Button(-text => "Beenden",
-command=>[$haupt => 'destroy']
)->pack(-pady => "20");
my $rechts= $haupt ->Frame();
$rechts->Label(-text =>"Ihr Ergebnis")->pack();
my $daten = $rechts ->Listbox();
$daten->pack();
$links ->pack (-side =>"left");
$rechts ->pack(-side =>"right");
MainLoop();
sub einlesen {
my $quelle = $ausgang ->get;
my $ergebnis = 0;
$ergebnis = $quelle;
$daten->insert('end', " ". $ergebnis );
}
Gruß
Thomas