in reply to Parsing multi-line records
Here is what I might do based on my current understanding:
#!/usr/bin/perl use strict; use warnings; use constant RECORD_SIZE => 11; my (@record, @lines); open FOO, 'test.plx' or die; while (@lines = grep defined, map scalar <FOO>, 1 .. RECORD_SIZE) { if (@lines == 11) { chomp @lines; # flatten into a single array ... @record = map split(':'), @lines; # ... or build an array of arrays # @record = map [ split ':' ], @lines; } else { # what to do if line count is not a multiple of RECORD_SIZE? } }
|
---|