保留Perl中CGI输入的加号

Edu*_*ual 3 perl cgi

我正在开发一个Web应用程序,其中包含多个表单,用户需要输入通常包含空格和/或加号的数据.

数据通常通过GET请求发送; 或通过POST具有application/x-www-form-urlencodedContent-Type标头的请求.

我尝试过使用Vars()paramPerl的CGI模块,但这两种方法都坚持将+符号转换为空格.

CGI模块是否提供任何保护+标志的机制; 或者我应该抛弃CGI并手动解析STDIN输入?

注意:
使用大量表单(超过一百个),并在集中式实用程序库中进行CGI预处理,我非常偏向服务器端解决方案而不是客户端方法(换句话说) ,我宁愿在预处理代码上处理一次问题,而不是在数百个地方添加JS噪声.

提前感谢您提供的任何帮助.

示例:
根据注释中的请求,以下是触发此问题的某些代码的(简化)示例.

HTML

<form action="/cgi-bin/some-script.pl">
    <input name="some_field" value="1 + 1 is 2">
    <input name="submit" type="submit" value="Submit">
</form>
Run Code Online (Sandbox Code Playgroud)

Perl的

use CGI;
my $some_variable = CGI::param('some_field');
Run Code Online (Sandbox Code Playgroud)

与默认值submiting形式和运行的服务器端代码后,$some_variable的值"1 1 is 2" (有1的之间的三个空间,无论是SO站点或浏览器可以被它们折叠成一个单一的空间) ; 在理想的结果将获得价值"1 + 1 is 2"在这个变量.

Dav*_*oss 7

加上CGI参数的标志意味着空间.这是CGI规范.任何向您发送加号的HTTP客户端都意味着其他任何内容都会被破坏.处理加号的任何HTTP服务器都意味着其他任何东西都被破坏了.

所以问题不在你的CGI程序中(这是正确的).问题出在HTTP客户端,它向您发送加号以使它们被解释为加号.在CGI程序中将加号作为参数发送的正确方法是将其编码为%2B.这是你需要解决的问题.

更新:我在Ubuntu上使用Apache运行了一个简单的测试.

我的HTML文件看起来像这样:

<html>
  <head>
    <title>Test</title>
  </head>
  <body>
    <h1>Test</h1>
    <form action="/cgi-bin/param">
      <input name="some_field" value="1 + 1 is 2">
      <input name="submit" type="submit" value="Submit">
    </form>
  </body>
</html>
Run Code Online (Sandbox Code Playgroud)

我的Perl程序看起来像这样:

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use CGI qw[header param];

print header(-type => 'text/plain');

for (param) {
  say "$_ -> ", join ':', param($_);
}
Run Code Online (Sandbox Code Playgroud)

当我访问该页面并点击"提交"按钮时,浏览器转到该URL http://localhost/cgi-bin/param?some_field=1+%2B+1+is+2&submit=Submit并显示以下内容:

some_field -> 1 + 1 is 2
submit -> Submit
Run Code Online (Sandbox Code Playgroud)

这看起来像我期望看到的行为.浏览器将加号发送到浏览器时,正确地将加号编码为%2B.当我访问它时,Perl的CGI模块对该值进行解码.

您需要跟踪为什么您的浏览器(或您用来发送这些请求的任何其他客户端)不遵循CGI规范的原因.

  • 谢谢!在进行一些跟踪之后,似乎所有可能包含任何非常规字符的应用程序中的所有字段都在被提交之前由某些JS预处理.事实上,JS确实被打破了.我想这将归结为修复(并且为了理智,重构)这几百个脚本. (2认同)