use strict;
use Spreadsheet::ParseExcel;
use Data::Dumper;
use warnings;

my $parser=Spreadsheet::ParseExcel->new();
my $workbook=$parser->parse('C:\Perl\perl_tests\Sample.xls');
if(!defined $workbook)
{
die $parser->error(),".\n";
}

my $worksheet=$workbook->worksheet('Sheet1');
my %student_data;

for my $row(1..$worksheet->row_range)
{
my $super_key=$worksheet->get_cell($row,0)->value;
    for my $col(0..4)
    {
    my $key=$worksheet->get_cell(0,$col)->value;
    my $value=$worksheet->get_cell($row,$col)->value;
##here I am getting a problem##
    $student_data{$super_key}->{$key}=$value;
    }
}

foreach my $student_name(sort keys %student_data)
{
    foreach my $attribute (keys%{$student_data{$student_name}})
    {
        if($student_data{$student_name}{$attribute} eq "x")
        {
        print("$student_name-->$attribute\n");          }
    }
    print("\n");
}

[download]

it shows an error "can't call method 'value' on an undefined value. I guess it is because in some cells 'x' is not written and hence that cell is empty so it is showing me this error. I tried it when all the cells contain 'x' then it is working. What should I do in this case?

In reply to Re^2: How to convert Excel contents into a hash table and further access the contents of that hash table ? by ankit.tayal560
in thread How to convert Excel contents into a hash table and further access the contents of that hash table ? by ankit.tayal560

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.