in reply to File changes are not reflecting in perl tk

The only output to a file you have here is:

               $dst ||= "$0.edit";  #in case user hits cancel 
               warn "dst=$dst";

         open (my $fh, '>',$dst) or die "$!\n";
         print $fh $sublable->get("1.0","end");

[download]

Your original file is only read:

   my $fh;
   open( $fh, '+<', "./test.txt" ) or die $!;
   my @contents = <$fh>;
#   print "@contents\n";
   close( $fh );

[download]

Meaningful variable names would probably help you.

Update:

There may also be a problem here:

            my $dst  = $mw->getSaveFile(
            -initialdir       => $ENV{HOME},
            -defaultextension => '.in',
             -title            => 'Save',
            -filetypes        => [
                [ 'myfiles'    => '.in' ],
                [ 'All files' => '*'    ],
            ],
            );

[download]

Please post the output from your code. My problems in determining what's going wrong here stem from:

-- Ken

Replies are listed 'Best First'.
Re^2: File changes are not reflecting in perl tk
by vr786 (Sexton) on Dec 01, 2010 at 11:59 UTC

    Thanks for giving replay, here is my updated code , my input file "./test.txt" (original file) consists 20-30 lines of data , if i will open the same file through my script it will show very few lines and it is not saving any changes into original file.

    #!/usr/bin/perl -w
use warnings;
use strict;
use Tk;
use Tk::FileSelect;

my $mw = MainWindow->new;
$mw->configure( -background => 'black', -foreground => 'white' );
$mw->geometry( "400x300" );
$mw->title( "Multiple Windows Test" );
my $curr_path = "/root/test.txt";

my $button1 = $mw->Button(
   -text       => "view Results",
   -background => "cyan",
   -command    => \&button1_sub
)->pack( -side => "right" );

$mw->Button( -text => "Exit", -command => sub { exit } )
 ->pack( -side => "bottom" );

sub button1_sub {
        my $subwin1 = $mw->Toplevel;
        $subwin1->geometry( "500x400" );
$subwin1->title( "Sub Window #1" );

        my $fh;
        open( $fh, '+<', "$curr_path" ) or die $!;
        my @contents = <$fh>;
        close( $fh );

        my $sublable = $subwin1->Scrolled( 'Text', -scrollbars => 'oso
+e', )->pack;
        $sublable->insert( 'end', @contents );

        my $subwin_button = $subwin1->Button(
                                -text    => "Close window",
                                -command => [$subwin1 => 'destroy'],
                                )->pack( -side => "bottom" );

#=================Creating save buttion on subwindow ===========

my $save_button = $subwin1->Button(-text=>'save',
                                -command =>\&get_save,
                                -background =>'cyan'
                                )->pack(-side=>'right');
}
MainLoop;
sub get_save {

        my $dst  = $mw->getSaveFile(
            -initialdir       => '/root/',
            -defaultextension => '.txt',
            -initialfile      =>'test.txt',
            -title            => 'Save',
            -filetypes        => [
                [ 'myfiles'   => '.txt' ],
                [ 'All files' => '*'    ],
            ],
        );

      $dst ||= '<undef>';
      warn "dst=$dst";
}

    [download]
    </code>
[reply]
[d/l]

      I asked: "Please post the output from your code.". Is there a reason you can't or won't do that?

      -- Ken

[reply]

        "test.txt" containing the following contents , if your opened same file through script , you will see few contents(output file) 

        =====input file======
1
2
3
4
5
6
7
8
9
a
b
c
d
e
f
=================output file=============
1
3
5
7
9
b
d
f

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom