Table building confusion Help Wanted

basicdez has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to build a table to reference the following informaiton in a table like retrieve. Please help me (if you can)

Entity_ID | Customer_number | SSN          |Relationship

     A1   |     007         |  999-99-9999 | Self
     C1   |     008         |  888-88-8888 | Spouse
     S1   |     005         |  777-77-7777 | Son
[download]

Here is the code that I am trying to use. In a condensed version of course....

#!/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 @PER_Data;
my @major_PER_Data;
 
my $j = 0;
for ( 0 .. $count - 1 )
   {
      {
        @PER_Data = ($dataA[$j],  $dataB[$j],  
                     $dataC[$j],  $dataD[$j]);
        $j++;
      }
      push @major_PER_Data, [@PER_Data];
  }

my @PER_Item;
my @PER_Entity;
my @PER_Customer_ID;
my @PER_SSN;
my @PER_Relationship;
my $Num_OF_PER = 0;
my $i = 0;

foreach my $PER_item (@major_PER_Data)
  {
  foreach my $PER_subitem (@{$PER_item})
     {
     $PER_Item[$i] = $PER_subitem;
     $i++
     }

  $PER_Entity[$Num_OF_PER]           = $PER_Item[0];
  $PER_Customer_ID[$Num_OF_PER]      = $PER_Item[1];
  $PER_SSN[$Num_OF_PER]              = $PER_Item[2];
  $PER_Relationship[$Num_OF_PER]     = $PER_Item[3];
  
  
  print "$PER_Entity[$Num_OF_PER]       \n";
  print "$PER_Customer_ID[$Num_OF_PER]  \n";
  print "$PER_SSN[$Num_OF_PER]          \n";
  print "$PER_Relationship[$Num_OF_PER] \n";
  
  $Num_OF_PER++;
  }
[download]

Problem #1

Why when I am expecting this to send me back the table, is it only sending back the following...

A1
007
999-99-9999
self
A1
007
999-99-9999
self
A1
007
999-99-9999
self
[download]

Problem #2 - If problem #1 can be solved

If we can find the answer to this question, then I can go onto the next thing which is rather than printing out the correct results, how do I put them into a table for referencing purposes?

I would take any advice good or bad that you may have to offer on this one

peace, LOVE and ((code))

basicdez

Comment on Table building confusion Help Wanted Select or Download Code

Replies are listed 'Best First'.
(jeffa) Re: Table building confusion Help Wanted by jeffa (Bishop) on Jan 16, 2002 at 03:17 UTC
Well, how about iterating over one of the arrays by an index value and pushing that index for each of the arrays to a data structure? `use strict; use Data::Dumper; 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 $ref; for my $i (0..$#dataA) { push @$ref,[$dataA[$i],$dataB[$i],$dataC[$i],$dataD[$i]]; } print Dumper $ref;` [download] Not the best way to do it, but it works as long as each array is the same size. `<update>` In answer to your reply below, Data::Dumper comes with the standard Perl distribution. It is already installed, though it is up to you to check for new versions. Since i was careless to not mention this before (confession: i assumed you knew), i will explain a bit more. Read more... (5 kB)	[reply] [d/l] [select]
Re: (jeffa) Re: Table building confusion Help Wanted by basicdez (Pilgrim) on Jan 16, 2002 at 03:41 UTC
Do I have to install Data::Dumper or is this already a part of perl> peace, LOVE and ((code)) basicdez	[reply]
Re: Table building confusion Help Wanted by jwest (Friar) on Jan 16, 2002 at 03:39 UTC
My initial reaction is to ask why you're doing it this way? Arrays and list indexes are not your friend, usually. Hashes, on the other hand, are: `use strict; use warnings; my %entity = ( A1 => { customerID => '007', ssn => '999-99-9999', relationship => 'self', }, B1 => { customerID => '008', ssn => '888-88-8888', relationship => 'spouse', }, C1 => { customerID => '009', ssn => '777-77-7777', relationship => 'son', }, ); foreach my $e (keys(%entity)) { print "$e\n"; print "$entity{$e}{'customerID'}\n"; print "$entity{$e}{'ssn'}\n"; print "$entity{$e}{'relationship'}\n"; }` [download] And for that matter, this code could be improved, but you're starting to get the idea- you might want to change the primary key away from entity to customerID, for example, but it still largely holds. You're doing a lot of data thrashing, but not what I assume your intended goals are. If you want to continue using arrays, I definitely suggest you follow jeffa's approach, then. As far as putting them into a table for referencing purposes, depending on what you mean, I may have just done that for you. If you're looking to put them in a database, you should check out DBI. As far as what's causing your problems, I can't tell from the code you presented above. At a glance, it looks like it should work. Hope this helps! --jwest -><- -><- -><- -><- -><- All things are Perfect To every last Flaw And bound in accord With Eris's Law - HBT; The Book of Advice, 1:7	[reply] [d/l]
Re: Table building confusion Help Wanted by PrakashK (Pilgrim) on Jan 16, 2002 at 03:59 UTC
To address your question #1 first: You forgot to reset $i to 0 before moving on to the next record. Add: `$i = 0;` [download] 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"; } [download] Much smaller and clearer. /prakash	[reply] [d/l] [select]
Re: Table building confusion Help Wanted by indapa (Monk) on Jan 16, 2002 at 03:54 UTC
Using the array approach, if the data you want in your table is being read from a file you could try the following approach: `#!/apps/bin/perl -w use Data::Dumper; $table = (); while (<>) { chomp; $curr_rec = [split /\\|/, $_]; push (@$table, $curr_rec); } print Dumper (\$table);` [download]	[reply] [d/l]