Perl嚴格decode_base64

Question

如何獲得MIME :: Base64 :: decode（）中的功能，如在php base64_decode函數中嚴格參數？

Answer 1

my $c = '[A-Za-z0-9+/]'; 
my $strict = qr/ 
^
    (?:$c{4})*+ 
    (?:$c(?:==|$c(?:=|$c))=)?+ 
    \z 
/x; 

sub php_base64_decode { 
    return undef if $_[1] && $_[0] !~ $strict; 
    return decode_base64($_[0]); 
} 

不知道什麼PHP的base64_decode正是這麼做，所以你可能需要調整的格局中$strict。