Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Calling a PERL script from an html form

by InfiniteSilence (Curate)
on Jun 01, 2014 at 14:49 UTC ( [id://1088173] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use CGI qw|:standard|;
    #my $firstname = $in{name};                                           
    +        
    my $firstname = CGI::param('name');
    
  2. or download this
    use strict; #<- get into the habit of using this
    #...
    ...
    while (($lastname, $date_first_employed, $annual_salary, $id,
    $email_address, $home_phone_number, $emergency_phone_number) = $sth->f
    +ethrow_array())
    #...
    
  3. or download this
    "SELECT lastname, date_first_employed, annual_salary FROM employees WH
    +ERE firstname = $qfirstname,                     
    SELECT * FROM employee_contacts WHERE contact_id = $qcontactid")