I do not know if this is possible but I am trying to create a form that sends information to a cgi file. That file creates a cookie. Then I have another cgi file that displays the information of the cookie. Most of the files work except the last one. I'm trying to use an if statement to tell if a certain radio button is used then print the information one way if not print the information another way. I'm using a regular expression in the if statement. The last file "membership.cgi" does not work correctly. If any one can help me I would appreciate it. Thank you for your time. Randy Here are my files: html file: 
<!doctype html>
<html lang = "en">
<head>
     <title>Sign Up</title>
</head>


<body>

<h2>Sign up and choose your options</h2>
<form action="/cgi-bin/signup.cgi" method="post">
<table border="2" cellspacing="5" cellpadding="5">
<tr>
     <td align="center">Name</td>
     <td><input type="text" name="name" size="30"></td>
</tr>
<tr>
<td align="center">Select MemberShip Type</td>
<td><input type = "radio" name = "membership" value="0">Life
<input type = "radio" name = "membership" value="1">Annual
<input type = "radio" name = "membership" value="2">Fee Trial</td>
</tr>
<tr>
<td align="center">Choose Background Color</td>
<td><select name = "color">
    <option value = "pk">Pink
    <option value ="cy">Cyan
    <option value = "ma">Magenta
    <option value ="wh">White
    <option value = "go">Gold
    <option value ="bl">Blue
</select>
</tr>
<tr>
  <td colspan="2" align="center"><input type = "submit" value="Sign Up
+ and Set Options" </td>
</tr>
</form>
</table>
</body>
</html>

[download]
The cookie cgi file 
#!c:\Dwimperl\perl\bin\perl.exe

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;

my $name = param('name');
my $membership = param('membership');
my $color = param('color');

my @members = ('Life', 'Annual', 'Free Trial');
my %colors =(pk => 'Pink',
             cy => 'Cyan',
             ma => 'Magenta',
             wh => 'White',
             go => 'Gold',
             bl => 'Blue',);
             


my @newmembers =($members[$membership], $name, $colors{$color});


my $mem = cookie(-name => "member",
                       -value => "@newmembers",
                       -path => "/",
                       -expires => "+1M" );

print header( -cookie => [$mem] ),
start_html,
"<h2>Thank you. Your data has been recorded</h2>",
"<a href='membership.cgi'>See member page</a>",
end_html;

[download]
The output cgi file 
#!c:\Dwimperl\perl\bin\perl.exe

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;

my @ara = split (/ /,cookie("member"));  #### splits on spaces into ar
+ray 


if($ara[0] =~ /Free Trial/){
print header, start_html;
print "<body bgcolor ='".$ara[4]."'/>";
print "<h1>Welcome back, ".$ara[0]." ".$ara[1]." Member ".$ara[2]." ".
+$ara[3]."</h1>"; 
print end_html;
    
}else{
print header, start_html;
print "<body bgcolor ='".$ara[3]."'/>";
print "<h1>Welcome back, ".$ara[0]." Member ".$ara[1]." ".$ara[2]."</h
+1>"; 
print end_html;
}

[download]

In reply to Regular Expressions in a cookie by rshoe

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.