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

Posted in Новости on 31 января, 2014 by admin

Допустим, к скрипту дается запрос :

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: , , ,

цикл foreach для хеш массива в perl

Posted in Новости on 25 января, 2013 by admin


foreach $key (keys %hash) {
print "Key - $key\n";
print "Hash for key $key - $hash{$key}\n";
}

Tags: , ,

Объединяем два массива в один хеш массив в perl

Posted in Новости on 25 января, 2013 by admin


my @EMAILS = ('1','2');
my @TOKENS = ('a','b');
my %hash;
@hash{@EMAILS} = @TOKENS;

Tags: , ,