title image


Smiley TK speichern unter?
Wie kann ich den eingegebenen Text über den Button02 "Speichern unter" in einem Verzeichnis als Textdatei speichern?





#!/usr/bin/perl -w

use strict;

use Tk;



my $fenster = MainWindow->new;



my $text=$fenster->Label("-text" => "Bitte geben sie Ihren Text ein...: ",

"-height" => "4",

"-width" => "40");



my $eingabe = $fenster->Entry();



my $button01 = $fenster->Button("-text" => "OK",

"-height" => "1",

"-width" => "10",

"-command" => \&eingabe_bearbeiten);



my $button02 = $fenster->Button("-text" => "Speichern unter",

"-height" => "1",

"-width" => "10",

"-command" => \&eingabe_speichern);



my $button03 = $fenster->Button("-text" => "Ende",

"-height" => "1",

"-width" => "10",

"-command" => sub {exit 0});



$text->pack();

$eingabe->pack();

$button01->pack(-pady => "10");

$button02->pack(-pady => "10");

$button03->pack(-pady => "10");



MainLoop;



sub eingabe_bearbeiten {

print "Das ist Ihr Text... " . $eingabe->get , "\n";

$eingabe->delete(0,100);

#Löscht den Inhalt von Entry() ab Zeichen 0-100

}



sub eingabe_speichern {

.

.

.

}

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: