Как вы сглаживаете хэш ключей, пар значений?

Question

Я хотел поделиться с вами, ребята, функцией, которую я создал, чтобы увидеть, как я мог ее оптимизировать, или если бы был лучший способ сделать это.

sub flatten{ 
    my($ref,$delim,$item_delim,$array,$str) = @_; 

    die("Required Hash Reference") unless isHash($ref); 

    $delim = $delim ? $delim :'_'; 

     #dump into array hash vals #simplified 
     if(!$item_delim){ 
     @{$array} = %{$ref}; 
     }else{ 
     my($keys,$values); 

     $keys = getKeys($ref); 
     $values = getValues($ref); 

     #item strings 
     if($#$keys > 0 && $#$values > 0){ 
      #fix for issue where value[n] is empty 
      @{$array}= map{ (defined $$values[ $_ ]) ? $$keys[ $_ ].$item_delim.$$values[ $_ ] : $$keys[ $_ ].$item_delim } 0 .. int($#$keys); 
     }else{ 
     log "No Values to flatten"; 
     return ''; 
     } 
     } 

    $str = join($delim,@{$array}); 
    return $str; 
    } 

Есть ли какие-либо пункты оптимизации, о которых я должен знать здесь?

В основном я хочу, чтобы перейти от

$HASH => { 

key1 => 'val1', 
key2 => 'val2', 
key3 => 'val3', 

} 

в $STRING= key1=val1&key2=val2 ...

Обновлено

раствор без модулей является предпочтительным, я просто хочу знать, как эффективно придавить хэш !.

Обратите внимание, что некоторые из функций здесь - это просто функции-обертки, которые выполняют то, что они говорят. isHash getKeys ... не обращайте на них внимания!

Answer 1

Без модулей:

my $hashref = {  
    key1 => 'val1', 
    key2 => 'val2', 
    key3 => 'val3', 
}; 

sub encode { 
    my $str = shift; 
    $str =~ s/([^A-Za-z0-9\.\/\_\-])/sprintf("%%%02X", ord($1))/seg; 
    return $str; 
} 

my $str = join '&' => map { encode($_).'='.encode($hashref->{$_}) } grep { defined $hashref->{$_} } keys %$hashref; 

результат:

key2=val2&key1=val1&key3=val3 

Answer 2

use URI::Escape; 
my $str=join '&',map {uri_escape($_).'='.uri_escape($QUERY_STRING->{$_})} grep {defined $QUERY_STRING->{$_}} keys %$QUERY_STRING; 

Я думаю, что это должно сработать!

Answer 3

Одним удобным способом является использование URIquery_form объекта.

use URI; 

my $uri = URI->new("", "http"); # We don't actually care about the path... 
$uri->query_form(%params); 
my $query_string = $uri->query; 

Другой, более ручной способ, чтобы просто использовать URI::Escape, карта, и присоединиться.

Answer 4

Я ничего не вижу в вашем вопросе, что означает, что ваша подпрограмма должна быть более сложной, чем:

sub flatten { 
    my ($hash, $delim, $item_delim) = @_; 

    $delim //= '&', 
    $item_delim //= '='; 

    return join $delim, map { "$_$item_delim$hash->{$_}" } keys %$hash; 
} 

Обновление: Получение нескольких downvotes здесь. Я предполагаю, что люди возражают против того, что я не кодирую URI. Я просто укажу, что в первоначальном вопросе нет ничего, говоря о том, что мы создаем URI. Если бы я знал, что мы были, то я бы обязательно использовал appropriate module.

Вот почему я сказал: «Я ничего не вижу в вашем вопросе ...».