Re^3: Reading a spreadsheet

Yes, exactly.

(My eye must have skipped — I failed to register that there are two nested foreach loops, or I would have been clearer in my answer. It’s no excuse, but still ... indentation matters!)

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re^3: Reading a spreadsheet Download Code

Replies are listed 'Best First'.

Re^4: Reading a spreadsheet
by Anonymous Monk on Feb 18, 2015 at 18:05 UTC

...

   foreach my $worksheet (@{$excel_sheet -> {Worksheet}}) {
        
    $worksheet -> {MaxRow} ||= $worksheet -> {MinRow};

    # Skip worksheet if it doesn't contain data.
    next if $worksheet -> {MinRow} > $worksheet -> {MaxRow};
    
    foreach my $row ($worksheet->{MinRow} .. $worksheet->{MaxRow}) {

      # Send flag as DONE once it reach the end of file or if there is
+ no data
      send_data( 
           zipcode => 'DONE',  # Flag
                  );
          
      # Correct values or skip them:
      next unless defined $worksheet->{Cells}[$row][0]->{Val};
      
      warn Dumper $worksheet->{Cells}[$row][0]->{Val};
      
      if ( $worksheet->{Cells}[$row][0]->{Val} =~ /^\d{5}/ ) {

        my $xlsx_rows = $worksheet->{Cells}[$row];
    
        # Send data
        send_data( 
                   zipcode    => $xlsx_rows->[0]->{Val}  || '',
           firstname  => $xlsx_rows->[1]->{Val}  || '',
           lastname   => $xlsx_rows->[2]->{Val}  || '',
                             
                           );
       
     }
      
    }

  }
  
...
[download]

[reply]
[d/l]

Re^5: Reading a spreadsheet

by Athanasius (Archbishop) on Feb 19, 2015 at 01:57 UTC

No, “after the loop” means after the loop body, not after the loop condition:

foreach my $worksheet (...)
{
    ...
    foreach my $row (...)
    {
        ...
        if (...)               # filter out unwanted data, including h
+eader
        {
            send_data(...);    # send data extracted from the spreadsh
+eet
        }
    }
}

send_data(zipcode => 'DONE');  # NOW you're done!
[download]

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]