#!/usr/bin/perl -w
use strict;

use Tk;


my $haupt = new MainWindow;

my $links = $haupt->Frame();
$links->Label("-text"=> "Einzulesende Textdatei: ")->pack();
my $edatei = $links->Entry();
$edatei->pack();

my $eschalter = $links->Button(-text=>"Datei einlesen",
-command=> \&einlesen
)->pack();


my $rechts = $haupt->Frame();

$rechts->Label(-text=>"Text:")->pack();
my $daten = $rechts ->Listbox();
$daten->pack();

$rechts->Label(-text=>"Name unter dem die geänderte Datei gespeichert werden soll:")->pack();
my $adatei = $rechts->Entry();
$adatei->pack();

my $aschalter = $rechts->Button(-text=>"Datei abspeichern",
-command=> \&abspeichern
)->pack();

$rechts->Label(-text=>"Statusmeldung:")->pack();
my $status = $rechts ->Listbox();
$status->pack();


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

MainLoop();

}

sub einlesen{
    open(FILE, $file) || die "Can't open the file $file: $!";
    foreach my $line (<FILE>){
        $textfield->insert('end', $line."\n");
    }
    close FILE;
}

sub einlesen{
     my ($list,$hashref) = @_;
    
    if(defined $hashref->{input} && defined $hashref->{output}){
        if(open(my $fh,'<',$hashref->{input}) && 
           open(my $w_fh,'>',$hashref->{output})){
            while(my $line = <$fh>){
                print $w_fh $. . " " . $line;
                chomp $line;
                $list->insert('end', $. . " " . $line);
            }
            close $fh;
            close $w_fh;
            $hashref->{message} = 'Die Ausfuehrung war erfolgreich!';
        }
        else{
            $hashref->{message} = 'Die Ausfuehrung war nicht erfolgreich';
        }
    }
    else{
        $hashref->{message} = 'Bitte legen Sie eine Eingabe- und eine Ausgabedatei fest:';
    }
}