diff options
| -rw-r--r-- | challenge-110/james-smith/README.md | 15 | ||||
| -rw-r--r-- | challenge-110/james-smith/perl/ch-2.pl | 17 |
2 files changed, 17 insertions, 15 deletions
diff --git a/challenge-110/james-smith/README.md b/challenge-110/james-smith/README.md index 433fbf84f7..22b9d2b788 100644 --- a/challenge-110/james-smith/README.md +++ b/challenge-110/james-smith/README.md @@ -172,8 +172,8 @@ sub transpose_seek { ## Loop through the file and get the start/end position of each line, ## and the first $BYTES characters of each line... - push ( @pos, [$prev+$BYTES,tell $fh,substr $_,0,$BYTES]) && - ( $prev=tell $fh ) while <$fh>; + ( push @pos, [ $prev+$BYTES, tell $fh, substr $_, 0, $BYTES] ) && + ( $prev = tell $fh ) while <$fh>; ## While we still have "columns" loop through each row and grab the first ## entry and output results. @@ -181,16 +181,17 @@ sub transpose_seek { while( $pos[0][0] < $pos[0][1] || length $pos[0][2] ) { my @line; foreach(@pos) { + ## Grab extra data for the row if we have got an incomplete + ## field {missing a "," and still data to read} while( $_->[2] !~ m{,} && $_->[0] < $_->[1] ) { seek $fh, $_->[0], 0; - read $fh, - $_->[2], ## "Buffer" + read $fh, $_->[2], ## "Buffer" $_->[1]-$_->[0] > $BYTES ? $BYTES : $_->[1]-$_->[0], - length $_->[2]; ## Length of "Buffer" so text gets added to end + length $_->[2]; ## Length of "Buffer" so text gets + ## added to end $_->[0]+=$BYTES; } - $_->[2] =~ s{^([^,\r\n]+)[,\r\n]*}{}; - push @line, $1; + push @line, $_->[2] =~ s{^([^,\r\n]+)[,\r\n]*}{}; } say {$ofh} join q(,), @line; } diff --git a/challenge-110/james-smith/perl/ch-2.pl b/challenge-110/james-smith/perl/ch-2.pl index 4afa11e49c..c71cbca113 100644 --- a/challenge-110/james-smith/perl/ch-2.pl +++ b/challenge-110/james-smith/perl/ch-2.pl @@ -78,12 +78,12 @@ sub transpose_seek { open my $fh, '<', $_[0]; open my $ofh, '>', $_[1]; - + ## Loop through the file and get the start/end position of each line, ## and the first $BYTES characters of each line... - push ( @pos, [$prev+$BYTES,tell $fh,substr $_,0,$BYTES]) && - ( $prev=tell $fh ) while <$fh>; + ( push @pos, [ $prev+$BYTES, tell $fh, substr $_, 0, $BYTES] ) && + ( $prev = tell $fh ) while <$fh>; ## While we still have "columns" loop through each row and grab the first ## entry and output results. @@ -91,16 +91,17 @@ sub transpose_seek { while( $pos[0][0] < $pos[0][1] || length $pos[0][2] ) { my @line; foreach(@pos) { + ## Grab extra data for the row if we have got an incomplete + ## field {missing a "," and still data to read} while( $_->[2] !~ m{,} && $_->[0] < $_->[1] ) { seek $fh, $_->[0], 0; - read $fh, - $_->[2], ## "Buffer" + read $fh, $_->[2], ## "Buffer" $_->[1]-$_->[0] > $BYTES ? $BYTES : $_->[1]-$_->[0], - length $_->[2]; ## Length of "Buffer" so text gets added to end + length $_->[2]; ## Length of "Buffer" so text gets + ## added to end $_->[0]+=$BYTES; } - $_->[2] =~ s{^([^,\r\n]+)[,\r\n]*}{}; - push @line, $1; + push @line, $_->[2] =~ s{^([^,\r\n]+)[,\r\n]*}{}; } say {$ofh} join q(,), @line; } |