http://www.perlmonks.org?node_id=687260


in reply to Fixed Position Column Records

For people who stumble upon this thread. I've written a module to help with task. DataExtract::FixedWidth
my $de = DataExtract::FixedWidth->new({ header_row => undef , heuristic => \@lines , cols => [qw/name address num1 num2 num3/] }) say $de->parse_hash( $_ )->{name} foreach @lines


Evan Carroll
I hack for the ladies.
www.EvanCarroll.com