tk:geöffnete Datei unter anderem Namen speichern???

[starfrench]

Hallo

Komme in meinem Script nicht weiter.
Die ganze Sub-Routine "speichern" scheint falsch zu sein.
Wie kriege ich das Script dazu die geöffnete Datei zu speichern ??
Kann mir einer helfen????

Hier mein soweit funktionierendes Script!!

#!/usr/bin/perl-w
use strict;
use Tk;
my ($mw, $frame);
my ($text, $yscr, $xscr);
my ($fbut, $bread, $bask, $bxit);
my $input_file;
my $output_file;

$mw = MainWindow->new();
$frame = $mw->Frame();
$text = $frame->Text(-wrap => 'none');
$yscr = $frame->Scrollbar(-command =>
[yview => $text],
-orient => 'vertical');
$xscr = $frame->Scrollbar(-command =>
[xview => $text],
-orient => 'horizontal');
$text->configure(-yscrollcommand => [ set => $yscr ]);
$text->configure(-xscrollcommand => [ set => $xscr ]);

$frame->pack(-expand => 'yes', -fill => 'both');

$yscr->pack(-side => 'right', -fill => 'y');
$xscr->pack(-side => 'bottom', -fill => 'x');

$text->pack(-expand => 'yes', -fill => 'both',
-side => 'left');

$fbut = $mw->Frame();
####################
$input_file = $fbut->Entry(); #auslesen der Datei im Verzeichnis
####################
$bread = $fbut->Button(-text => 'Datei öffnen',
-command => &oeffnen);
#########################
$output_file = $fbut->Entry();
#######################
$bask = $fbut->Button(-text => 'Speichern',
-command => &speichern);
$bxit = $fbut->Button(-text => 'Exit',
-command => sub { exit 0 });
$fbut->pack(-side => 'bottom', -expand => 'both',
-fill => 'both');
###################
$input_file->pack(-side => 'left');
####################
$bread->pack(-side => 'left');
###################
$output_file->pack(-side => 'left');
####################
$bask->pack(-side => 'left');
$bxit->pack(-side => 'left');

MainLoop;

sub oeffnen {

######################
my $take_this = $input_file->get;
######################

open (IFILE, "<$take_this")or die "can't open $take_this : $!\n";
while (<IFILE>) {
$text->insert("end", $_);
$input_file->delete(0,100);
}
close (IFILE);
}

sub speichern {

######################
my $take_that = $output_file->get;

my $to_protect = $text->get;

######################

open (IFILE, ">$take_that");

close(IFILE);

}

schluss

[Struppi]

Hallo

Komme in meinem Script nicht weiter.
Die ganze Sub-Routine "speichern" scheint falsch zu sein.
Wie kriege ich das Script dazu die geöffnete Datei zu speichern ??
Kann mir einer helfen????

Was ist denn falsch?

Hier mein soweit funktionierendes Script!!

Es funktioniert also?

Ich weiss nicht wie man dir helfen könnte, ich kann ja mal ein bisschne raten:

sub speichern {

######################
my $take_that = $output_file->get;

hast du dien Wert überprüft?

my $to_protect = $text->get;

oder den?

open (IFILE, ">$take_that");

Ob open geklappt hat sollte man auch immer probieren.

close(IFILE);

Mmmh, was soll den hier passieren?
Da steht doch gar nichts oder willst du nur die Datei anlegen?
kann es sein das der Pfad falsch ist?

Struppi.