Select Code to Download

Select or download this

--- fudge    2012-10-08 02:22:09.312500000 -0700
+++ fudge2    2012-10-08 02:22:06.140625000 -0700
...
             }
         }

Select or download this

--- fudge2    2012-10-08 02:22:06.140625000 -0700
+++ fudge3    2012-10-08 02:22:02.328125000 -0700
...
                 }
             }

Select or download this

--- fudge3    2012-10-08 02:22:02.328125000 -0700
+++ fudge4    2012-10-08 02:21:58.968750000 -0700
...
 
                 }

Select or download this

--- fudge4    2012-10-08 02:21:58.968750000 -0700
+++ fudge5    2012-10-08 02:21:55.468750000 -0700
...
             }
         }

Select or download this

--- fudge5    2012-10-08 02:21:55.468750000 -0700
+++ fudge6    2012-10-08 01:27:35.187500000 -0700
...
+}
 __END__

Select or download this

--- fudge6    2012-10-08 01:27:35.187500000 -0700
+++ fudge7    2012-10-08 01:40:55.031250000 -0700
...
 }

Select or download this

--- fudge7    2012-10-08 01:40:55.031250000 -0700
+++ fudge8    2012-10-08 01:47:28.906250000 -0700
...
     {
         for my $row( @$rows )

Select or download this

--- fudge8    2012-10-08 01:47:28.906250000 -0700
+++ fudge9    2012-10-08 01:48:45.046875000 -0700
...
         if(  defined $firstCol and $firstCol =~ /^\d{10}$/  )
         {

Select or download this

--- fudge9    2012-10-08 01:48:45.046875000 -0700
+++ fudge10    2012-10-08 02:23:20.609375000 -0700
...
+}
 __END__

Select or download this

#!C:\strawberry\perl\bin\perl

####Load Packages
...
    $Book->Close;
}
__END__