2,204
社区成员
发帖
与我相关
我的任务
分享这段查询文件内容找出关键字的代码写的对不对？
#!/usr/bin/perl
$filename = "data.shtml";
if($ENV{'REQUEST_METHOD'}eq"GET")
{
$buffer=$ENV{'QUERY_STRING'};
}
elsif($ENV{'REQUEST_METHOD'}eq"POST")
{
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
}
print"content-type:text/html\n\n";
print"<html><head><title>查找</title></head><body>";
$buffer=~tr/+//;
$buffer=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if($buffer eq "")
{
print<<SEARCH;
<form action="search.pl" method=get>
<input type=text>
<input type=submit value="查询">
</form>
SEARCH
exit;
}
open(FILE,">>$filename");
@data = <FILE>;
foreach $tmpline(@data)
{
if($tmpline=~/$buffer/i)
{
print"$tmpline";
}
}
close(FILE);
exit;
#data.shtml的内容如下：
111222<hr>
dajia<hr>
hello<hr>
我的目的是想
search.pl?111222
这样就把data.shtml里面的111222<hr>找出来，并输出
$filename = "data.shtml";
if($ENV{'REQUEST_METHOD'}eq"GET")
{
$buffer=$ENV{'QUERY_STRING'};
}
elsif($ENV{'REQUEST_METHOD'}eq"POST")
{
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
}
print"content-type:text/html\n\n";
print"<html><head><title>查找</title></head><body>";
$buffer=~tr/+//;
$buffer=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if($buffer eq "")
{
print<<SEARCH;
<form action="search.pl" method=get>
<input type=text>
<input type=submit value="查询">
</form>
SEARCH
exit;
}
open(FILE,">>$filename");
@data = <FILE>;
foreach $tmpline(@data)
{
if($tmpline=~/$buffer/i)
{
print"$tmpline";
}
}
close(FILE);
exit;
#data.shtml的内容如下：
111222<hr>
dajia<hr>
hello<hr>
我的目的是想
search.pl?111222
这样就把data.shtml里面的111222<hr>找出来，并输出
...全文
请发表友善的回复…
发表回复
