|
Problem mit Zeilennummerierung in Perl!!
Hallo Zusammen!
Ich habe eine Problem, welches mich den letzten Nerv kostet.
Was Perl programmierung anbestrifft bin ich blutiger Anfänger.Die Aufgabe ist, mit Hilfe des Moduls Tk eine grafische Oberfläche zuerstellen ( das habe ich gerade noch hinbekommen! ).
Das Problem ist:
Wenn ich einen Text im Eingabefeld eingebe und einen Button (Eingabe einlesen) betätige, soll der Eingabetext in der Ausgabe mit fortlaufender Zeilennummerierung erscheinen und gleichzeitig in einer Listbox "Ausfuehrung erfolgreich" stehen.
Ich weiß nicht wo ich anfangen soll, Perl ist nix für mich!
Kann mir jemand helfen?
So sieht meine bisherige Leistung aus. : (
#!c:/Perl/bin/perl -w
use strict;
use Tk;
my $haupt=new MainWindow;
my $links= $haupt->Frame();
$links->Label(-text=> "Eingabe:")->pack();
my $eingabe = $links->Entry();
$eingabe->pack();
my $links2= $haupt->Frame();
$links->Label(-text=> "Ausgabe:")->pack();
my $ausgabe = $links->Entry();
$ausgabe->pack();
my $schalter = $links->Button(-text=>"Eingabe einlesen",
-command=>\&einlesen,
)->pack(-pady=>"10");
my $rechts=$haupt->Frame();
my $box= $rechts->Listbox();
$box->pack();
$links->pack(-side=>"left");
$rechts->pack(-side=>"right");
MainLoop();
|
