#! /usr/bin/perl

use strict;
use warnings;
use Tk;

my ($input,$output);

my $mw = MainWindow->new();
$mw->Entry(-textvariable => \$input)->pack();
$mw->Entry(-textvariable => \$output)->pack();
$mw->Button(-command => \&save, -text => 'Speichern')->pack();
my $list = $mw->ScrlListbox()->pack();

MainLoop;

sub save{
  my $counter = 1; # Counter für Zeilennummer
  if(open(R_TXT,"<$input")){ # Datei zum Lesen öffnen
    if(defined $output && open(W_TXT,">$output")){
      while(my $line = <R_TXT>){ # Zeilenweise einlesen
        $line = $counter." ".$line; # Zeilennummer vorne anfügen
        print W_TXT $line;
        $counter++;
      }
      close W_TXT;
      $list->insert('end',"Speichern erfolgreich!");
    }
    else{
      $list->insert('end',"Ausgabedatei nicht geöffnet!");
    }
    close R_TXT; # Filehandle schließen
  }
  else{
    $list->insert('end', "Datei existiert nicht!");
  }
}