34 lines
591 B
Perl
34 lines
591 B
Perl
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<TITLE>CGI How-to, ReadC_pl Test Form</TITLE>
|
||
|
|
</HEAD>
|
||
|
|
<BODY>
|
||
|
|
|
||
|
|
<A HREF="index.pl?test+query+string">Press here to try the test command line string.</A>
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
File: index.pl
|
||
|
|
|
||
|
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
sub readCommandLineData
|
||
|
|
{
|
||
|
|
local(*queryString) = @_ if @_;
|
||
|
|
|
||
|
|
$queryString = join(" ",@ARGV);
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "Content-type: text/plain\n\n";
|
||
|
|
|
||
|
|
&readCommandLineData(*data);
|
||
|
|
|
||
|
|
print "The command line data is:\n\n";
|
||
|
|
|
||
|
|
print $data;
|
||
|
|
print "\n";
|