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

PHPbase64_decodeが正確に何をするかわからないので、$strict.