Re^2: Out of memory and While replacements with excel XLSX application

[Anonymous Monk]

in reply to Re: Out of memory and While replacements with excel XLSX application
in thread Out of memory and While replacements with excel XLSX application

Here is a start at refactoring

diff fudge fudge2

<Reveal this spoiler or all spoilers in this node or all in this thread>

diff fudge2 fudge3

<Reveal this spoiler>

diff fudge3 fudge4

<Reveal this spoiler>

diff fudge4 fudge5

--- fudge4    2012-10-08 02:21:58.968750000 -0700
+++ fudge5    2012-10-08 02:21:55.468750000 -0700
@@ -143,12 +143,21 @@
     }
 
 
-        for my $col ( qw{ 13 14 15 17 18 20 21 22 23 24 25 26 27 32 3
[phone] 39 }){
+        for my $col (
+            qw{
+            13 14 15
+            17 18
+            20 21 22 23 24 25 26 27
+            32 33 34 35 36 37 38 39
+            }
+          )
+        {
             if ( my $val = eval { $Sheet->Cells( $row, $col )->{Value
+} } ) {
                 push @prod, $val;
             }
         }
 
+
                 }
             }
         }

diff fudge5 fudge6

<Reveal this spoiler>

diff fudge6 fudge7

<Reveal this spoiler>

diff fudge7 fudge8

<Reveal this spoiler>

diff fudge8 fudge9

<Reveal this spoiler>

diff fudge9 fudge10

<Reveal this spoiler>

I end up with fudge10

<Reveal this spoiler>

[Anonymous Monk]

ValueTargetCols should loop over rows first then cols, but it probably makes no difference in the results in this case