Ich habs gerade mal bei mir getestet, da lief der Code.
Ich konnte mich aber nicht davon abhalten lassen, ihn vorher etwas umzumodeln ;)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#! /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!");
}
Edit: Nette Idee, die Listbox für die Meldung zu nehmen :)\n\n
<!--EDIT|Crian|1092835299-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite