разбиение строки

[WD`]

При передаче методом Get
как получить 2 массива: один с именами переменных, а др. с их значениями?

[Gandalf]

oops не то

[Fouly]

Используй модуль CGI

use CGI;
my $query = new CGI();

Можно получить массив с именами:

my @names = $query->param;

далее создать массив со значениями:

my @vals;
foreach (@names) {
	push(@vals, $query->param($_));
}

Ещё можно получить сразу хэш:

my %input = $query->Vars;

[WD`]

Пасиб большое, Fouly

Привет.
Можно обойтись и без модуля CGI...

$dl = $ENV{CONTENT_LENGTH};
$query = $ENV{QUERY_STRING};

if ($dl >0) {
  sysread(STDIN, $que, $dl);
  if ($query) {
    $query = $query.'&'.$que;
  }
  else {
    $query = $que;
  }
}
	
@comm = split('&', $query);

foreach (@comm) {
  /([^=]+)=(.*)/ && do {
    local ($field, $value) = ($1, $2);
    $value =~ s/\+/ /g;
    $value =~ s/%([0-9A-H]{2})/pack('C',hex($1))/eg;
    $query{$field} = $value;
  }
}

После чего получаем хэш %query ...

А дальше совсем просто:

foreach $key (keys %query) {
  $value = $query{$key};
  print "$key => $value";
}

Это работает как через GET так и через Post или при одновременной передаче данных через GET и POST.

[WD`]

thx, попробуем