Problem mit Zeilennummerierung in Perl!!

[Stachel]

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();

[Master of Disaster]

Hab den Thread mal hierher verschoben.

Gruß
der Tom

[Stachel]

Hallo Tom,

danke fürs Weiterleiten!

Gruß

Stachel

[mahjongg]

Aha, noch einer, der die Aufgaben eines Kurses macht *fg*

Schau mal hier: http://board.perl-community.de/cgi-b...t=ST;f=3;t=197

Die letzten zwei, drei Codebeispiele dürften genau das sein, was Du suchst...