Sure... make an array of names...
@fields = ('required-name','age'); # etc etc etc
foreach $sortedkeys (@sortedkeys) {
$sortedkeys =~ s/^\d*\)\s*//;
$sortedkeys =~ s/required-//;
($name, $answer) = split (/\|/, $sortedkeys);
$form{$name} = $answer;
}
#so now all your data is in a hash, keyed off the name.
foreach $field (@fields) {
#check if form value exists, if yes, put form value in
#$answer, otherwise put a comma?
$answer = (exists $form{$field} ? $form{$field} : ',');
print FORM "$field -- $answer\n";
}
That make sense?
They will print in the order you put @fields in.
- Ant |