Perl：在cgi脚本中解析包含反斜杠的query_string

我是新手，我希望我能够正确解释我的问题... 我有一个html表单，需要文件名和位置，cgi脚本处理这个输入。文件将类似于：file.ext和位置将像/ some /文件夹/ 我的问题是，当我尝试解析查询字符串，&和/中的字符串被转换为amp;和％2F，当我试图打印参数，它不工作... 这里是输出：Perl：在cgi脚本中解析包含反斜杠的query_string

testjarName=some.jar&loc=some%2Ffolder&host=r9_7079&action=PatchjarName 
some.jar some.jar 
amp;loc 
some some 
amp;host 
r9_7079 r9_7079 
amp;action 
Patch Patch 
FILE IS some.jar and LOCAITON IS 
file is some.jar 
location some 
machine is r9_7079 
action is Patch 
You typed:

是否有人可以帮忙吗？我也尝试过param（）调用，但没有帮助。表格输入法为GET 以下是我正在使用的脚本：

#!/usr/local/bin/perl 
use CGI qw(:standard); 
#print header; 
#print start_html('A Simple Example'), 
$my_input = $ENV{QUERY_STRING}; 
print "Content-type: text/html\n\n"; 
print ""; 
print "<html><head></title>test</title></head><body>"; 
print "$ENV{QUERY_STRING}"; 
@fv_pairs = split /\&/ , $my_input; 
foreach $pair (@fv_pairs) { 
     if($pair=~m/([^=]+)=(.*)/) { 
       $field = $1; 
       print "$field"; 
       print "<br>"; 
       $value = $2; 
       print "$value " ; 
       $value =~ s/\+/ /g; 
       print "$value " ; 
       print "<br>"; 
       $value =~ s/%([\dA-Fa-f]{2})/pack("C", hex($1))/eg; 
       $INPUT{$field}=$value; 
     } 
} 
print "<br><hr>"; print "FILE IS $INPUT{jarName} and LOCAITON IS $INPUT{loc}"; 
if (param()) { 
print "<hr>"; 
    print 
     "file is ",em(param('jarName')), 
     p, 
     "location ",em(join(", ",param('loc'))), 
     p, 
     "machine is ",em(param('host')), 
     p, 
     "action is ",em(param('action')), 
     hr; 
print "You typed: " . $input{'loc'} . "\n"; 


} 

print "</body></html>"; 
#print end_html;

请帮忙。在此先感谢。

来源

2013-10-25 jingle123

使用HTML :: Entities对输入字符串进行编码/解码。（How can I decode HTML entities?）

来源

2013-10-25 12:35:32 Robert

感谢很多:) :) :)它的工作 – jingle123

param会分手的查询字符串和解码HTML字符你：

perl -e 'use CGI qw(:standard); 
     print param("loc"); 
' 'testjarName=some.jar&loc=some%2Ffolder&host=r9_7079&action=PatchjarName'

输出：

some/folder

来源

2013-10-25 12:47:05 RobEarl

Perl：在cgi脚本中解析包含反斜杠的query_string

回答

相关问题