Chris Reddekopp wrote:
> My apologies. Let me explain better...
>
> In the dbm file will be the array with the customer's email address with a
> value of 1 or 0 next to it.
It is not always a good idea to decide in advance what tools you need for the
job. It sounds like this one is a good candidate, not for an array, but for a
boolean-valued hash. Since Perl is not type-specific, you can use scalars of
any flavor for either keys or values.
> This way we have a list of who visited the page
> and downloaded the file. When I run the script again to send out the mass
> emails pulled from the dbm file, anyone who has a value of 1 will not be
> sent the email.
if ($repeat->{$visitor}) {
...
} else {
...
}
> Right now I have the HTML with POST in it to grab the data and the go to the
> perl script to add the data to the dbm file. My problem is I do not know how
> to start the script and tell it to use the data inputted from the site and
> place it into the dbm file.
First you have to define the data and its shape. Once you have done this, the
coding will be a snap.
What data? How many items of data does the form send? What are the expected
data types of the data?
We need information like this in order to help you. You need the practice in
defining and articulating problems.
You have two large and complex issues here. You will get there much faster by
breaking the process down into one process at a time, so lets start with the CGI
side.
In brief, the first thing you want to do is include CGI functionality in your
program by calling the CGI module:
use CGI;
then get a CGI object representing current transaction:
my $cgi = CGI->new;
>From there, it is largely a design question as to what you do next. You could
fetch all the data into a single hash with the Vars method:
my $junk_heap = cgi->Vars;
or get tehm one at a time.
my $first_name = $cgi->param('first name');
It can be very straightforward, once you have defined what you want.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
