how to pass variable to cgi (through url?)

[spewn]

here is the code...


**
count.cgi

#!/usr/local/bin/perl

my $cfile = "./data/count.dat";
open (COUNTER, "$cfile"
my $count = <COUNTER>;
close (COUNTER);
$count += 1;
open (COUNTER, &quot;>$cfile&quot;
print COUNTER (&quot;$count&quot;
close (COUNTER);

print&quot;Location:

http://www.whatever.com\n\n&quot;;

**

i would like to pass a value to the program, then use the if/else conditional based on that value...

any ideas?

since count.cgi is called through a link, i though i could use ../count.cgi?id=val1 but that didn't seem to work.

 

[spewn]

okay, i added the @ARGV...


**
count.cgi


#!/usr/local/bin/perl

my $v = @ARGV;

my $cfile = &quot;./data/$v.dat&quot;;
open (COUNTER, &quot;$cfile&quot;
my $count = <COUNTER>;
close (COUNTER);
$count += 1;
open (COUNTER, &quot;>$cfile&quot;
print COUNTER (&quot;$count&quot;
close (COUNTER);

print&quot;Location:

http://www.whatever.com\n\n&quot;;

**

the the .dat file that it opens is 1.dat, no matter what i put after the ?...

ex.

count.cgi?p
count.cgi?test


is that right? help please...

spewn

 

[Eloff]

I don't know what @ARGV does but here's what I do when passing information through with the query string.

$query_string = $ENV{'QUERY_STRING'};

then you have id=val1 inside query string and you can split it at the equals sign or do whatever it is you want to do with it. Age: 17
School: Alberta Distance Learning Center
Location: British Columbia, Canada
If at first you dont't succeed, try, try again. - programmer's motto.

 

[spewn]

easy enough...thanks!

-spewn