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