Hallo zusammen,
ich habe hier ein Script, in dem ich eine Datei einlesen kann, aber ich möchte auch , dass diese Datei beschrieben werden kann.
Im Ordner habe ich noch eine Eingabe.txt und Ausgabe.txt gespeichert. Aber wenn ich z.B. Eingabe.txt einlesen will, steht in der Listbox =Hash(0x1bc5310)".Es hat aber auch schon mit Ausgabe des Textes gefunzt. Wie mach ich das?
use strict;
use FindBin '$Script';
use Tk;
my $haupt = new MainWindow;
my $links= $haupt->Frame();
$links->Label(-text => "Namen der Einlesedatei!")->pack();
my $lesedat = $links->Entry();
$lesedat->pack();
$links->Button(-text=> "Einlesen!", -command=> \&lesen)->pack(-pady=> "10");
$links->Label(-text => "Namen der Ausgabedatei!")->pack();
my $schreibdat = $links->Entry();
$schreibdat->pack();
$links->Button(-text=> "Erstellen!", -command=> \&schreiben)->pack(-pady=> "10");
$links->Button(-text=> "Beenden!", -command=>[$haupt=> 'destroy'])->pack(-pady=> "20");
my $rechts= $haupt->Frame();
$rechts->Label(-text => "Datei-Inhalt!")->pack();
my $listfeld = $rechts->Listbox();
$listfeld->pack();
$links->pack(-side => 'left');
$rechts->pack(-side => 'right');
$rechts->pack(-side => 'top');
MainLoop();
sub lesen {
open(DATEI, '<', $lesedat->get()) or die "Datei kann nicht geoeffnet werden: $!\n";
while (<DATEI>) {
chomp;
$listfeld->insert('end', $_);
}
close(DATEI);
}
Wie und wo setzte ich das Schreiben/Erstellen hin?
Schönen dank