Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
my @t   = qw(name John number 7 status unknown);
...
    $str .= '&' if @t;
}
say $str;
  2. or download this
    use Modern::Perl;
use URI::Escape qw/uri_escape/;
...
    $str .= '&' if @t;
}
say $str;
  3. or download this
    use Modern::Perl;
use URI::Escape qw/uri_escape/;
...
    map { sprintf '%s=%s', uri_escape($_), uri_escape($th{$_}) }
    keys %th;
say $str;