Perl decode_base64 stricte

Question

Comment puis-je obtenir la fonctionnalité dans MIME :: Base64 :: decode() comme dans la fonction php base64_decode avec strict paramètre?

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]); 
} 

Je ne sais pas exactement ce qui ne fonctionne, PHP de base64_decode afin que vous pourriez avoir à modifier le modèle en $strict.