Perl 函数 string2hex

Question

我有一个功能:

sub ascii_to_hex ($)
{
    ## Convert each ASCII character to a two-digit hex number.
    (my $str = shift) =~ s/(.|\n)/sprintf("%02lx", ord .$1)/eg;
    return $str;
}

我需要在每个数字之前添加一个“%”。接收 %68%75%44

Answer 1

%%用于 sprintf格式化字符串以打印百分号。