0
我正在創建一個網站,它將接收用戶信息並存儲在mysql數據庫中。當我通過終端運行腳本時,出現以下錯誤:
Use of uninitialized value $ENV{"REQUEST_METHOD"} in string eq at ./folder1/friends-mysql.cgi line 16.
我不確定爲什麼出現此錯誤。這裏是我的腳本:
#!/usr/bin/perl -w
use DBI;
#Declare Variables with MYSQL Connection Data
$db="my database";
$user="my username";
$passwd="password";
$host="host";
$connectionInfo="";
#Print HTTP header
print "Content-type:text/html\n\n";
#Check if Method is GET
if ($ENV{REQUEST_METHOD} eq "GET") { -->This is line 16
&displayform();
exit;
}
else { #If Method not GET process form and insert into DB
&parseform();
&insertfriend();
exit;
}
#Standard form parsing using POST method
sub parseform {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair(@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}
'$ ENV {REQUEST_METHOD}'會提到所謂的環境變量「REQUEST_METHOD」。在運行腳本之前,您是否創建並導出了一個環境變量? 'export REQUEST_METHOD =「GET」' –
@ chris-doyle那可能是答案所以......你知道該怎麼辦:-) –
@ChrisDoyle我必須把'export REQUEST_METHOD =「GET」'因爲我把它放在我的腳本,但我仍然沒有得到結果。當我從瀏覽器執行腳本時,我會看到整個腳本。 –