Hi evryone ,
I'm back again with my queries to seek enlightenment from this forum. I'm trying to read an excel file and parse the values, meanwhile perform checks and display values. I have written the code and while executing it, i'm able to print the values in the command prompt using the command

print "$cell->value()";
[download]

Everything works perfectly in the command prompt workspace. Now comes the problem.

I'm also using perl Tk to create a user interface to display values that do not meet checks. But when i try to print this value on to the text area by using the command :

$txt->insert('end',"$worksheet->{Cells}[$row][$col]->{Val}");
[download]

it does seem to perform the checks on the numeric values correctly, but it does not print the actual name of the corresponding value(eg Name1, name2,etc as in the below eg). The excel file is in this format:
1. Name1 1 2 40
2. Name2 45 7 6
..
What should i do ??/
PS: i tried running both the print options simultaneously and i could observe the value on the command prompt but not on the text window .. help ..!!

Upadated : The Entire Code

#!/usr/local/bin/perl

use Tk;
# Main Window
my $mw = new MainWindow;
$mw->Frame(-background => 'red')->pack(-ipadx =>50, -side => "left", -
+fill => "y");
#Making a text area
my $txt = $mw -> Scrolled('Text',-width => 150, height => 40, -scrollb
+ars=>'e', -font => "fixed 8 bold" ) -> pack ();
$txt->insert('end', "");
#Declare that there is a menu
my $mbar = $mw -> Menu();
$mw -> configure(-menu => $mbar);
#The Main Buttons
my $file = $mbar -> cascade(-label=>"File", -underline=>0, -tearoff =>
+ 0);
my $open = $mbar -> cascade(-label=>"Open", -underline=>0, -tearoff =>
+ 0);
my $tool= $mbar -> cascade(-label =>"Tools", -underline=>0, -tearoff =
+> 0);
my $parser = $mbar -> cascade(-label =>"RL ", -underline=>0, -tearoff 
+=> 0);
my $help = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff =
+> 0);
## File Menu ##
$file -> command(-label => "Home", -underline=>0,
-command=> \&home );
$file -> command(-label => "Check ", -underline=>0,
-command=> \&define );
$file -> checkbutton(-label =>"faults", -underline => 0,
-command => \&faults); 
$file -> separator();
$file -> command(-label =>"Exit", -underline => 1,
-command => sub { exit } );
##Open Menu##
$open->command( -label => 'Open', -underline => 0, -command => \&f_ope
+n );
$open->command( -label => 'Save', -underline => 0, -command => \&f_sav
+e );
$open->separator;
$open->command( -label => 'Exit', -underline => 1, -command => sub{
+exit} );

## Tools Menu ##
$tool -> command(-label => "Ne", -underline=>0,
-command=> \&nwplan );
$tool -> command(-label => " ", -underline=>0,
-command=> \&optimize );
$tool -> separator();

## Parse Menu ##
$parser -> command(-label => "P", -underline=>0,
-command=> \&parse );
## Help Menu ##
$help -> command(-label => "About", -underline=>0,
-command=> \&help );
MainLoop;
    sub help {
my ($opt) = @_;
$mw->messageBox(-message=>"This function is not available yet");
}

Mainloop;

sub f_open {
  my $filename = $mw->getOpenFile( -title => 'Open File:',
    -defaultextension => '.xls', -initialdir => '.' );
    warn "Opened $filename\n";
    open(MYFILE,$filename);
    
     # Text::Iconv is not really required.
 # This can be any object with the convert method. Or nothing.

 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(1) ) {

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

        for my $row ( $row_min .. 20 ) {
            
            for my $col ( $col_min .. $col_max ) {

              
                my $cell = $worksheet->get_cell( $row, $col );
                next unless $cell;
                
 
                print "Row, Col    = ($row, $col)\n";
                print "Value       = ", $cell->value(),       "\n";
                print "\n";
                  
                   $txt->insert('end',"$row:$col----$worksheet->{Cells
+}[$row][$col]->{Val}\n");
              
                    }
    
}
}
}
[download]

Another thing i noticed is that this script seems to run fine on smaller files (worksheets with less rows) .... It displays all data in text area as i expect but acts weirdly for larger files

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.