Opened by satanica1976 at 2004-08-16 17:43
User since
2004-08-16
17 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-08-16
17 Artikel
BenutzerIn
vielen dank für deine hilfe aber leider verstehe ich nur bahnhof, ich muss es nur für eine prüfung bringen danach will ich mit dem thema nix mehr machen da es mir absolut keinen spaß macht und ich keine vorstellungskraft dafür habe. bisher habe ich folgenden schwachsinn geschrieben der nicht funktioniert und weiß auch leider nicht wo ich das mit dem counter einfügen soll.
Bearbeitet von Crian: CODE-Tags spendiert\n\n
<!--EDIT|Crian|1092750111-->
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
#!/usr/bin/perl -w
use strict;
use Tk;
my $haupt = new MainWindow;
my $links=$haupt->Frame();
$links->Label(-text=> "Einlesen:")->pack();
my $eingabe = $links->Entry();
$eingabe->pack();
my $schalter1 = $links->Button(-text => "Einlesen",
-command => \&einlesen
)->pack;
my $rechts=$haupt->Frame();
$rechts->Label(-text=> "Ausgabe:")->pack();
my $daten = $rechts->Listbox();
$daten->pack();
my $schalter2 = $rechts->Button(-text => "Ausgabe",
-command => \&ausgabe
)->pack;
$links ->pack (-side => "left");
$rechts ->pack (-side =>"right");
MainLoop();
sub einlesen {
open(DATEI,"<daten.txt")
or die "Datei nicht gefunden!\n";
my $daten = param('eingabe')
my $neueintrag = <<HERE_TEXT;
$daten ->insert('end', "".$neueintrag );
close (daten.txt)
}
Bearbeitet von Crian: CODE-Tags spendiert\n\n
<!--EDIT|Crian|1092750111-->
Mein Name ist Hase.......