Hi,
I am a newbie at this whole Perl thing. Can someone help me out with these following errors? Below the errors is the script that I am writing.
Thanks
K.
----
Global symbol "%qx" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 38.
Global symbol "$short_quark" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 56.
Global symbol "%qx" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 56.
Global symbol "$short_quark" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 120.
Execution of /home/virtual_hosts/www-test.xyz.com/cgi-bin/register aborted due to compilation errors.
----
#!/usr/bin/perl -wT
# This script registers
# Lasted Revised 2003-05-03
use strict;
my $version = param("version");
my $serial = param("serial");
my $release = param("release");
my $os = param("os");
my $quark = param("quark");
my $name = param("name");
my $title = param("title");
my $company = param("company");
my $address = param("address");
my $city = param("city");
my $state = param("state");
my $zip = param("zip");
my $country = param("country");
my $phone = param("phone");
my $fax = param("fax");
my $email = param("email");
my $fromwhom = param("fromwhom");
my $mm = param("mm");
my $dd = param("dd");
my $yy = param("yy");
my $business = param("business");
my $otherbusiness = param("otherbusiness");
my $job = param("job");
my $otherjob = param("otherjob");
my $howlearn = param("howlearn");
my $otherlearn = param("otherlearn");
my $veps = param("veps");
my $spam = param("spam");
my $delivery = param("delivery");
my $comments = param("comments");
%qx = ("ppc3.32","332P",
"ppc4.02","402P",
"ppc4.03","403P",
"ppc4.04","404P",
"ppc4.1","410P",
"ppc4.11","411P",
"68k_3.32","332K",
"68k_4.02","402K",
"68k_4.03","403K",
"68k_4.04","404K",
"68k_4.1","410K",
"68k_4.11","411K",
"Wintel_4.03","403W",
"Wintel_4.04","404W",
"Wintel_4.1","410W",
"Wintel_4.11","411W",
"null","0000");
$short_quark = $qx{$quark};
I am a newbie at this whole Perl thing. Can someone help me out with these following errors? Below the errors is the script that I am writing.
Thanks
K.
----
Global symbol "%qx" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 38.
Global symbol "$short_quark" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 56.
Global symbol "%qx" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 56.
Global symbol "$short_quark" requires explicit package name at /home/virtual_hosts/www-test.xyz.com/cgi-bin/register line 120.
Execution of /home/virtual_hosts/www-test.xyz.com/cgi-bin/register aborted due to compilation errors.
----
#!/usr/bin/perl -wT
# This script registers
# Lasted Revised 2003-05-03
use strict;
my $version = param("version");
my $serial = param("serial");
my $release = param("release");
my $os = param("os");
my $quark = param("quark");
my $name = param("name");
my $title = param("title");
my $company = param("company");
my $address = param("address");
my $city = param("city");
my $state = param("state");
my $zip = param("zip");
my $country = param("country");
my $phone = param("phone");
my $fax = param("fax");
my $email = param("email");
my $fromwhom = param("fromwhom");
my $mm = param("mm");
my $dd = param("dd");
my $yy = param("yy");
my $business = param("business");
my $otherbusiness = param("otherbusiness");
my $job = param("job");
my $otherjob = param("otherjob");
my $howlearn = param("howlearn");
my $otherlearn = param("otherlearn");
my $veps = param("veps");
my $spam = param("spam");
my $delivery = param("delivery");
my $comments = param("comments");
%qx = ("ppc3.32","332P",
"ppc4.02","402P",
"ppc4.03","403P",
"ppc4.04","404P",
"ppc4.1","410P",
"ppc4.11","411P",
"68k_3.32","332K",
"68k_4.02","402K",
"68k_4.03","403K",
"68k_4.04","404K",
"68k_4.1","410K",
"68k_4.11","411K",
"Wintel_4.03","403W",
"Wintel_4.04","404W",
"Wintel_4.1","410W",
"Wintel_4.11","411W",
"null","0000");
$short_quark = $qx{$quark};