I'm not sure what your problem really is, but from what I can guess, you should split your data before you load it into the text box. The sample data you show, displays Ok, and you could use an approach similar to huge pad to display it.

Before even trying to display the data, I would split it, and load it into a hash. Then work out a scheme, for the text widget just to display a designated number of hash elements, like huge pad. Then when you want to save the whole file, just loop thru all the hash keys and save(concantate) the values.

And don't overlook the power that tags can add to your program, here is a simple example. 

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = tkinit;
my $t = $mw->Scrolled('Text',
              -scrollbars => 'osoe'
               )->pack;

for(1..100){
  $t->tagConfigure( 'data'.$_, -data => $_ x 20,
);
}

for(1..100){
 $t->insert('end', 'Line'."$_\n", ['datarider','data'.$_ ]);
}

$t->tagBind( 'datarider', '<Enter>', sub { getdata($t) } );
$t->tagBind( 'datarider', '<Leave>', sub { getdata($t) } );
$t->bind( '<Motion>', sub{ getdata($t) } );


MainLoop;

sub getdata {
    my ( $text_widget ) = @_;

    my $x = $text_widget->pointerx - $text_widget->rootx;
    my $y = $text_widget->pointery - $text_widget->rooty;
    #print "$x $y\n"; 
    my $txt_index = $text_widget->index( '@' . $x . ',' . $y );
    #warn $txt_index; 
    my ( $line, $char ) = ( $txt_index =~ /^(.+?)\.(.+?)$/ );
    my @tags =  $text_widget->tagNames($txt_index);
    print "@tags\n";

    foreach my $tag(@tags){
       print $text_widget->tagCget($tag,'data'),"\n";
      }

}

[download]
I'm not really a human, but I play one on earth. flash japh

In reply to Re: Tk Scrolled Text and Large Files by zentara
in thread Tk Scrolled Text and Large Files by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.