HI Any help will be greatly appreciated.
The below statement is my parsing statement. It may be antiquated but it works. I want to process input from a select form that has two names and two name values name=group1 , value1=xxxx name=group2 , value2=yyyy IN the below statement, how do I process this information so that: a] if a user selects both group1 and group2 from the drop lists, then it will join them together and parse both groups as one. b] if a user selects either group1 or group2 the it parses either group. I have tried to use . for joining strings (concatenate) ################################ # parse form input sub parse_form { my(@pairs); if ($ENV{'REQUEST_METHOD'} eq 'POST') { # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); } foreach $pair (@pairs) { my($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([\a-fA-F0-9][\a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([\a-fA-F0-9][\a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/<!--(.|\n)*-->//g; if ($name eq 'bgcolor' || $name eq 'background' || $name eq 'link_color' || $name eq 'vlink_color' || $name eq 'text_color' || $name eq 'alink_color' || $name eq 'title' || $name eq 'sort' || $name eq 'print_config' || $name eq 'return_link_title' || $name eq 'return_link_url' && ($value)) { $CONFIG{$name} = $value; } elsif ($name eq 'required') { @required = split(/,/,$value); } elsif ($name eq 'exclude') { @exclude = split(/,/,$value); } else { if ($FORM{$name} && ($value)) { $FORM{$name} = "$FORM{$name}, $value"; } elsif ($value) { $FORM{$name} = $value; } } } } ####################################### William L Kolln Email: [EMAIL PROTECTED] ############################## -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>