#! /usr/bin/perl

use strict;
use warnings;
use Tk;

my ($input,$output);

my $mw = MainWindow->new();
$mw->Entry(-textvariable => \$input)->pack(); # Eingabefeld für Pfad der einzulesenden Datei
$mw->Entry(-textvariable => \$output)->pack();# Eingabefeld für Pfad, wo gespeichert werden soll
$mw->Button(-command => \&save, -text => 'Speichern')->pack(); # "Speichern"-Button
my $list = $mw->ScrlListbox()->pack(); # Listbox für Ausgabe, ob Speichern erfolgreich war

MainLoop;

# Methode zum einlesen und speichern
sub save{
  my $counter = 1; # Counter für Zeilennummer
  open(R_TXT,"<$input") or die $!; # Datei zum Lesen öffnen
  open(W_TXT,">$output") or die $!; # Datei zum Schreiben öffnen
  while(my $line = <R_TXT>){ # Zeilenweise einlesen
    $line = $counter." ".$line; # Zeilennummer vorne anfügen
    print W_TXT $line; # Veränderte Zeile speichern
    $counter++; # counter hochzählen
  }
  close W_TXT;
  close R_TXT; # Filehandle schließen
  $list->insert('end',"Speichern erfolgreich!");
}