#!"C:\ActivePerl\bin\perl.exe"

use strict;
use warnings;
use Tk;

my @text;

my $haupt = new MainWindow;

my $links = $haupt ->Frame();
$links->Label(-text => "\nBitte Dateinamen der Ursprungsdatei eingeben, Pfad beachten!: \n")->pack();
my $ursprungsdateiname = $links->Entry();
$ursprungsdateiname->pack();

$links->Label(-text => "\nBitte Dateinamen der Zielsdatei eingeben, Pfad beachten!: \n")->pack();
my $zieldateiname = $links->Entry();
$zieldateiname->pack();

my $schalter = $links->Button(-text => "Einlesen und durchnummerieren",
			      -command => [\&nummerierung]
			      )->pack();
			      
my $schalter2 = $links->Button(-text => "Beenden",
			      -command => [$haupt => 'destroy']
			      )->pack(-pady => "20");

my $rechts = $haupt ->Frame();
$rechts->Label(-text => "Ergebnis:")->pack();
my $ergebnis = $rechts->Listbox();
$ergebnis->pack();

$links ->pack (-side =>"left");
$rechts ->pack (-side => "right");
	       
MainLoop();

sub nummerierung {
	
	#Array für Text aus Datei#
        my @text;	
        #Ursprungsdatei öffnen#	
	my $input = $ursprungsdateiname->get;
        open (DATEI, "<$input")
	or die "Die Datei kann nicht geoeffnet werden!\n";

	#Dateiinhalt in Array einlesen#
	while ( <DATEI> )
	{
		push @text, $_;
	}

        #Zieldatei öffnen#
	my $output = $zieldateiname->get;
        open (DATEINEU, ">$output")
	or die "Die neue Datei kann nicht geoeffnet werden!\n";

        #Textarray zeilenweise durchlaufen und Zeilennummerierungen in neue Datei schreiben#
	my $zeile =0;


	foreach ( @text ){
	  print DATEINEU "$zeile $_";
	  $zeile++;	
	}
	
	#Dateien schliessen#
	close (DATEI);
	close (DATEINEU);

	$ergebnis->insert('end', "Zeilennummerierung erfolgreich ausgef&uuml;hrt.");
}