> 0 @F1@ FAM
> 1 HUSB @I13@
> 1 WIFE @I14@
> 1 CHIL @I8@
> 0 @F2@ FAM
> 1 HUSB @I10@
> 1 WIFE @I8@
> 1 CHIL @I11@
> 1 CHIL @I12@
> etc.
$/ = undef;
for (split /\n0/, <>) {
($key) = /\@(..)/;
$hash{$key} = [ /\@(\w+)\@$/gm ];
}
> $individuals{"F1"}[0] = "I13";
> $individuals{"F1"}[1] = "I14";
> $individuals{"F1")[2] = "I8";
> $individuals{"F2")[0] = "I10";
> $individuals{"F2")[1] = "I8";
> $individuals{"F2")[2] = "I11";
> $individuals{"F2")[3] = "I12";
untested.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
