Переводим POST значения запроса к скрипту perl в хеш массив
Допустим, к скрипту дается запрос :
http://1.1.1.1/1.pl?os=Debian&ver=7
my $post = $ENV{'QUERY_STRING'}; # Захватываем весь POST в переменную
my %queries;
my @pairs = split('&',$post); # Разбиваем нашу переменную на массив попарные os=Debian и ver=7
foreach (@pairs) {
my($item,$value) = split(/=/,$_); # Берем значение и разбиваем его, делая из значения ДО знака равно ключ, а после знака - значение
$queries{$item} = $value; # Вносим в хеш массив новое значение
}
my $os = $queries{os}; # Переводим наши значения в более короткий вид
my $ip = $quirues{ver};
use CGI;
$cgi = new CGI;
%POST = $cgi->Vars;
не проще, не?
Спасибо, проверим.