🚀 go-pugleaf

Posted and mailed.

In article <gwalsh-0712951107450001@gwalsh.vip.best.com>, gwalsh@artec.com
(Greg Walsh) wrote:

: Any help on this would be appreciated.
: 
: # da problem: ####
: 
: I'm processing form data. At one point in the form, I use 4 different
: check boxes, each signifying a different subject the viewer is intrested
: in.
: 
: I'm looking for the best method to arrange a dynamic paragraph built on
: responses. This would be pretty easy if I would use a <SELECT MULTIPLE>
: instead of four independent checkboxes; but each subject/selection has a
: pretty extensive discription attached, and I want more control over the
: layout. And.... I want natural sounding english. 
[snip]
: (2) Option #B. Take the data in the four variables, put it into a comma
: (and space) delmited string that terminates in a period. Then (if two or
: more items were selected) change the last comma to the word "and". Of
: course, any set variable that doesnt contain data shouldn't print. 
: 
: # A model sentence using option #B ####
: 
: You are interested in: $data{'BBB'}, $data{'CCC'} and $data{'DDD'}. 

Would something like the following be useful?

$data{'AAA'} = "fishing";
$data{'BBB'} = "skiing";
$data{'CCC'} = "movies";
$data{'DDD'} = "programming";
@matches = ();
foreach( sort keys %data )
{
   push( @matches, $data{$_} ) if $data{$_};
}
if( @matches )
{
   $rsp = "You are interested in $matches[$[]";
   for( $i = $[+1; $i <= $#matches - 1; $i++ )
   {
      $rsp .= ", $matches[$i]";
   }
   $rsp .= " and $matches[$#matches]" if $#matches > $[;
   $rsp .= ".\n";
}
else
{
   $rsp = "You have no interests at all.\n";
}
print $rsp;

Robert Coie
Implementor, Intrigue Corporation
rac@intrigue.com