的Perl CGI字符串浮點數

Question

這是我在我的HTML文件

<form action="drinks.cgi" method="POST" target="re"> 
... 
Quantity:<input name="Quan" type="number" step="any"> (ml) 
<input style="margin-left:20px" type="submit" value="submit"/> 
... 
... 
</form> 

，這是在CGI文件什麼

my $quan = $conn->quote($cgi->param(Quan)); 
printf $quan; 

比方說，我在輸入類型222

我希望它只是打印出來222但它打印出來'222'，而不是... 我怎樣才能得到我的CGI文件去掉兩個'，這樣我可以ü選擇其他計算的變量。

Answer 1

如果計算是用Perl來完成，使用

my $quan = $cgi->param('Quan'); 

如果計算是在SQL中進行，與上述啓動和跟進

die if $quan !~ /^[0-9]+\z/; 
my $quan_sqllit = $quan; 

或

# The quotes aren't actually a problem. 
my $quan_sqllit = $conn->quote($quan); 

或

my $quan_sqllit = "CAST(".$conn->quote($quan)." AS INT)"; 

或

# Maybe. Depends on the implementation of $conn->quote. 
my $quan_sqllit = $conn->quote(0+$quan);