Du speicherst ganz normal den Inhalt des Eingabe-
feldes in die Datei. Wo ist das Problem?
#!/usr/bin/perl -w
use strict;
use Tk;
my $datei_name = "test.txt";
sub error() { exit(1); }
my $tkMain = MainWindow->new;
my $lText=$tkMain->Label(-text=>"Bitte geben sie Ihren Text ein...: ", -height=>"4", -width=>"40")->pack();
my $eingabe_value;
my $eEingabe = $tkMain->Entry(-textvariable=>\$eingabe_value)->pack();
my $bEingabeBearbeiten = $tkMain->Button(-text=>"OK", -height=>"1", -width=>"10", -command=>\&eingabe_bearbeiten)->pack(-pady=>"10");
sub eingabe_bearbeiten {
print "Das ist Ihr Text... " . $eEingabe->get , "\n";
$eEingabe->delete(0,100);
}
my $bEingabeSpeichern = $tkMain->Button(-text=>"Speichern unter", -height=>"1", -width=>"10", -command=>\&eingabe_speichern)->pack(-pad=>"10");
sub eingabe_speichern {
open(TXT, ">$datei_name") or error();
print TXT $eingabe_value or error();
close(TXT) or error();
}
my $bEnde = $tkMain->Button(-text=>"Ende", -height=>"1", -width=>"10", -command=>sub {exit 0})->pack(-pady=>"10");
MainLoop;
exit(0);
__END__
Bloß damit Du ein Bier trinken gehen kannst.
geschrieben von
santana
,
08.08.2003, 09:51 Uhr
, 49 mal gelesen