Re^3: Perl Tk text widget printing problem

[reaper9187]

hi...
i apologize for the mistakes.. what i meant was that i tried substituting the code by zentara in my script but it didnt change anything . u can even try it with a basic parser script

use Spreadsheet::ParseExcel;

    my $parser   = Spreadsheet::ParseExcel->new();
    my $workbook = $parser->parse($filename);

    if ( !defined $workbook ) {
        die $parser->error(), ".\n";
    }

    for my $worksheet ( $workbook->worksheet(0) ) {

        my ( $row_min, $row_max ) = $worksheet->row_range();
        my ( $col_min, $col_max ) = $worksheet->col_range();

        for my $row ( $row_min .. $row_max ) {
            
            for my $col ( 1) {

              
                my $cell = $worksheet->get_cell( $row, $col );
                next unless $cell;
                
 
                $text->insert('end', "$worksheet->{Cells}[$row][1]->{V
+al}\n");
                print "$worksheet->{Cells}[$row][1]->{Val}\n";
                    }
    
}
}

NOte: i observed the following :
1. The command seems to execute flawlessly on files where i reduced the no of rows (removed the entries) but it causes problems with unformatted files.
2. The print command in such cases(unformatted files) prints the values as shwn in the first post while nothing is displayed in the text widget.
Update: The above code is just a portion of the script, the portion i suspect is causing problems

[marto]

I asked you to post a complete example which produces the error you claim. This code doesn't even use Tk. This script doesn't run. Try reading and understand the links and advice I gave you. You seem intent on making it difficult for people to help you.