#! /usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::ErrorDialog;

my ($input,$output);

my $mw = new MainWindow;

# Eingabefeld für Pfad der einzulesenden Datei:
$mw->Entry(-textvariable => \$input)->pack();

# Eingabefeld für Pfad, wo gespeichert werden soll
$mw->Entry(-textvariable => \$output)->pack();

 # "Speichern"-Button
$mw->Button(-command => \&save, -text => 'Speichern')->pack();

 # Listbox für Ausgabe, ob Speichern erfolgreich war
my $list = $mw->ScrlListbox()->pack();

MainLoop();

# Methode zum einlesen und speichern
sub save {
    die "Eingangsdatei existiert nicht" unless defined $input and -f $input;
    die "Ausgabedatei undefiniert"      unless defined $output;
    open(R_TXT, "<$input" ) or die $!;
    open(W_TXT, ">$output") or die $!;
    while (<R_TXT>) {
        print W_TXT $. . ': ' . $_;
    }
    close W_TXT;
    close R_TXT;
    $list->insert('end',"Speichern erfolgreich!");
}