title image


Smiley Re: Modul TK speichern unter?
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: