Re: Merging two array(refs)

[LanX]

in reply to Merging two array(refs)

OK, If I understand correctly you wanna merge the rows of two tables with partly intersecting columns?

You could use nested slices of position informations of the column-heads

to precalculate the positions hash just do something like

  DB<158> @head1= @{$arr1->[0]}
 => ("name", "pos", "loc", "age")

  DB<159> @head2= @{$arr2->[0]}
 => ("car", "dog", "age")

  DB<161> %pos=();$p=0

  DB<162> for ( @head1 , @head2 )  {
           $pos{$_}=$p++ unless exists $pos{$_}
          }

  DB<163> %pos
 => ("dog", 5, "loc", 2, "car", 4, "name", 0, "pos", 1, "age", 3)

now preset the new rows with empty strings and do a list-assign to the calculated positions

  DB<168> @n= ("") x $p    #default
 => ("", "", "", "", "", "")

  DB<169> @n[ @pos{@head1} ] = @{ $arr1->[1] }
 => ("ike", "boss", 12, 44)

  DB<170> @n
 => ("ike", "boss", 12, 44, "", "")

  DB<171> @n= ("") x $p    #default
 => ("", "", "", "", "", "")

  DB<172> @n[ @pos{@head2} ] = @{ $arr2->[1] }
 => ("a1", "grr", 3)

  DB<173> @n
 => ("", "", "", 3, "a1", "grr")

IMHO the sexiest approach so far! ;-)

Completing the code is now just a minor task...

HTH