Переводим 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};

Tags: , , ,

2 комментария to “Переводим POST значения запроса к скрипту perl в хеш массив”

  1. Ivan Says:

    use CGI;

    $cgi = new CGI;
    %POST = $cgi->Vars;

    не проще, не?

  2. admin Says:

    Спасибо, проверим.

Leave a Reply