Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re^4: Iterating Through Cell Blocks with Spreadsheet::Read

by chexmix (Hermit)
on Oct 08, 2013 at 18:31 UTC ( #1057448=note: print w/replies, xml ) Need Help??

in reply to Re^3: Iterating Through Cell Blocks with Spreadsheet::Read
in thread Iterating Through Cell Blocks with Spreadsheet::Read

Oh, sorry, I misread your post. Please ignore mine above. :(
  • Comment on Re^4: Iterating Through Cell Blocks with Spreadsheet::Read

Replies are listed 'Best First'.
Re^5: Iterating Through Cell Blocks with Spreadsheet::Read
by Hammer2001 (Novice) on Oct 08, 2013 at 18:42 UTC
    Yes indeed, chexmix, recommended change was made on all affected lines. Here's the revised test script:
    use Spreadsheet::Read; my $inbook = "Data_File.xlsx"; $book = ReadData ($inbook); my @x = qw(F G H I J K); for my $sheet_index (1 .. $sheet_count) { my $sheet = $book->[$sheet_index] or next; foreach (@x) { $name = $sheet{"${_}28"}; $strain = $sheet{"${_}29"}; $initdensity = $sheet{"${_}30"}; $finaldensity = $sheet{"${_}31"}; $avedensity = $sheet{"${_}32"}; print "Found sheet with label: $sheet{label}\n"; print "COL=$_ $name $strain $initdensity $finaldensity $avedens +ity\n"; } }
    Hopefully it helps you see my error. Regards, Hammer
      [from Re^2: Iterating Through Cell Blocks with Spreadsheet::Read:]
      I still get the same error "Use of uninitialized value in concatenation (.) or string at..." on the print statement after replacing lines like "$name = $sheet{"$_28"}" with "$name = $sheet{"${_}28"}".

      I'm assuming the error message quoted from an earlier reply refers to the code most recently posted. In this code, my interpretation of the
          my $sheet = $book->[$sheet_index] or next;
      statement is that it creates a hash reference named $sheet. If you dump this variable with something like
          print Dumper $sheet;
      is that what you see? If the scalar  $sheet is a hash reference, its elements are accessed like  $sheet->{'string'} (note the  -> operator; see The Arrow Operator in perlop; also see perlref).

      After that, statements like
          $name = $sheet{"${_}28"};
      assign values of keys of the hash named  %sheet (not the hash reference  $sheet) to variables. Does this hash exist? It is not shown in your posted code, and I don't understand how your code can possibly work if it does not exist. Are you aware of the phenomenon of "autovivification" in Perl?

      Do you have warnings and strictures (see warnings and strict) enabled, i.e., do you have statements like
          use warnings;
          use strict;
      at or very near the top of each source file? Bugs arising from autovivification direct-versus-referential access confusion can easily bite without warnings and strictures.

      Update: On second thought, the reference to autovivification above is misguided, but the hash  %sheet really does have to exist somewhere with meaningful data in it for the posted code to work.

        Anomalous, thanks for your response. Adding a line "print Dumper $sheet;" generates error:
        print() on unopened filehandle Dumper at ./ line 33.
        References like:
        my $sheet_count = $book->[0]{sheets};
        before the loop work, but even though I have:
        $sheet = $book->[$sheet_index] or next;
        this does not seem to be doing the trick. I have tried many variations with no success. I had know autovivification as Perl magic. Knowing the proper term allows me to read about the full effects of the feature. Thanks for that. Adding:
        use warnings; use strict;
        up top makes no difference in the result. Thanks, Hammer.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1057448]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2022-08-12 02:04 GMT
Find Nodes?
    Voting Booth?

    No recent polls found