Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]5183[/thread]

Perl TK Datei öffnen/ausgeben

Leser: 1


<< >> 2 Einträge, 1 Seite
Gast Gast
 2006-05-12 11:10
#45426 #45426
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.

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
tomi-w
 2006-05-12 13:24
#45427 #45427
User since
2006-05-12
11 Artikel
BenutzerIn
[Homepage] [default_avatar]
wer lesen kann... ist klar im Vorteil. Habe die Lösung im Forum schon gefunden :)
<< >> 2 Einträge, 1 Seite



View all threads created 2006-05-12 11:10.