需要拼圖的最後一塊（返回用戶請求的值）

引用先前的問題我已將自己的代碼更改爲此（我越來越近），但它現在讀出整個文件而不是我所在的行試圖要求。（我想讀出包含該用戶在表格上輸入一個值的線需要拼圖的最後一塊（返回用戶請求的值）

形式代碼：

#!\xampp\perl\bin\perl.exe

使用CGI QW /類型：標準/;＃負載標準CGI程序使用CGI ::鯉魚（ 'fatalsToBrowser'）;

print header(); # create the HTTP header 
print <<HTML 

<head> 
    <title>Shop Here</title> 
</head> 
<body> 

<h1>list</h1> 

<br /> 

<form action="doSearch.pl"> 
    animalname:  <input type="text", name="search" size=5><br><br> 

<input type="submit" value="select"> 

</form> 
</body> 
</html>

HTML

# <>; 


    response form//////////////////////// 

use CGI qw(:standard); 
use CGI::Carp('fatalsToBrowser'); 
$search = new CGI; 

@animallist = param; 

print header, start_html("animal list"); #prints title on tab 

$inFile = "animal.txt"; 
open (IN, $inFile) or 
die "Can't find file: $inFile"; 

@animallist = (<IN>); 
# print @animallist, "\n" ; 
foreach $line (@animallist) 
{ 
if ($line =~ $value) 
{ 
    print $line; 
    } 
    } 

     print end_html;

來源

2014-11-14 jmac101

你的問題是什麼？此外 - 嚴格 - 嚴格和警告，以及代碼格式仍然是一個寶貴的調試工具。 – Sobrique 2014-11-14 19:30:19

你真的應該在你的問題中提出一個問題。

我假設你的代碼不工作。

我知道行$line =~ $value可能不會做你想要的，如果$ value包含特殊字符。

看一看here（\ Q \ E可能是你想要的）如果這是問題，你需要解決它。

來源

2014-11-14 20:20:58 bytepusher

需要拼圖的最後一塊（返回用戶請求的值）

回答

相關問題