这个变量是什么意思?

lin_lin13

$val=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg

其中hex($1)中的$1是什么意思?

kj501

你这是什么脚本语言？perl?shell?tcl?还是其它？请讲清楚。
一般脚本语言中用$开头的字符串表示变量，$1肯定是一个定义的变量，具体是什么意思，只能看上下文。

lin_lin13

#!/perl/bin/perl

if($ENV{'REQUEST_METHOD'} eq "OST")
{
   read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}

elsif($ENV{"REQUEST_METHOD"} eq "GET")
{
  $in=$ENV{'QUERY_STRING'};
}

@in=split(/&/,$in);

foreach $i (@in){

($key,$val)=split(/=/,$i);

$val=~tr/+/ /;
$val=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg;

$formin{$key}=$val;

}

kj501

呵呵，perl没有用过的说。

Glue

应该是前一个“()”里匹配的结果。