Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Table building confusion Help Wanted

by PrakashK (Pilgrim)
on Jan 16, 2002 at 03:59 UTC ( #139096=note: print w/replies, xml ) Need Help??

in reply to Table building confusion Help Wanted

To address your question #1 first: You forgot to reset $i to 0 before moving on to the next record. Add:
$i = 0;
at the end of the loop where you are reading from the array and printing the values out.

Having said that, I'd use array of hashes instead of array of arrays to store such data. Hashes lend themselves very nicely for storing records.

#!/usr/bin/perl-Tw use strict; my @dataA = ("A1", "C1", "S1"); my @dataB = ("007", "008", "005"); my @dataC = ("999-99-9999", "888-88-8888", "777-77-7777"); my @dataD = ("self", "spouse", "son"); my $count = 3; my @major_PER_Data; # save it for (0 .. $count - 1) { push @major_PER_Data, { ID => $dataA[$_], CUST => $dataB[$_], SSN => $dataC[$_], RELATION => $dataD[$_], }; } # print it for my $PER_item (@major_PER_Data) { print "$PER_item->{ID}\n"; print "$PER_item->{CUST}\n"; print "$PER_item->{SSN}\n"; print "$PER_item->{RELATION}\n"; }
Much smaller and clearer.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://139096]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2018-03-23 02:09 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (287 votes). Check out past polls.