[Moscow.pm] a=b&c=d

[Andrew Shitov]

>     /(.*?)=(.*)/, $h{$1} = $2 for split /&/;

На Perl 6 придумал без промежуточных переменных:

    my %h = gather {take .split('=') for .split('&')};


    
h6.pl:
    $_ = "a=b&c=d";
    my %h = gather {take .split('=') for .split('&')};
    say "$_=%h{$_}" for %h.keys;


    C:\_t>pugs h6.pl
    a=b
    c=d

--
Андрей Шитов
______________________________________________________________________
andy на shitov.ru | http://www.shitov.ru