stop using array - but printing every result...

1 files changed, 6 insertions, 4 deletions

diff --git a/challenge-110/james-smith/perl/ch-2.pl b/challenge-110/james-smith/perl/ch-2.pl
index c71cbca113..e02c2735a3 100644
--- a/challenge-110/james-smith/perl/ch-2.pl
+++ b/challenge-110/james-smith/perl/ch-2.pl
@@ -58,7 +58,7 @@ sub transpose_split {
   close $fh;
   ## Generate transpose
   open $fh, '>', $_[1];
-  say {$fh} join ',', map {shift @{$_} } @in while @{$in[0]};        
+  say {$fh} join ',', map {shift @{$_} } @in while @{$in[0]};
   close $fh;
 }
 
@@ -89,7 +89,7 @@ sub transpose_seek {
   ## entry and output results.
 
   while( $pos[0][0] < $pos[0][1] || length $pos[0][2] ) {
-    my @line;
+    my $j='';
     foreach(@pos) {
       ## Grab extra data for the row if we have got an incomplete
       ## field {missing a "," and still data to read}
@@ -101,9 +101,11 @@ sub transpose_seek {
                               ## added to end
         $_->[0]+=$BYTES;
       }
-      push @line, $_->[2] =~ s{^([^,\r\n]+)[,\r\n]*}{};
+      $_->[2] =~ s{^([^,\r\n]+)[,\r\n]*}{};
+      print {$ofh} $j,$1;
+      $j||=',';
     }
-    say {$ofh} join q(,), @line;
+    say {$ofh} '';
   }
 }