On Wed, 10 Nov 2004 00:04:12 -0600 "Charles K. Clarkson" <[EMAIL PROTECTED]> wrote: > my @headers = split ' ', <DATA>;
This way, if tomorrow you have some data like:
extents nptot
5 1671035
2223412520365
you'll be in troubles, right?
> my @tables;
> while (<DATA>) {
> my %table;
> @table{ @headers } = split;
^^^^^^^^^^^^^^^^^^^^^^^^^^^
I love this part! Looks like magic to me :-)
> push @tables, \%table;
> }
>
> print Dumper [EMAIL PROTECTED];
pgpHCtOtF7IMY.pgp
Description: PGP signature
