Perl - 何时进行 Base64 解码？

Question

我有一个有趣的问题。我正在开发一个 Perl 脚本，它接受各种字符串，有些是 base64 编码的，有些不是。

该数据结构是动态的，根据第三方应用程序的输入生成。我没有现成的方法来提前知道哪些字段是 Base64 编码的，哪些不是。

我看过的各种解决方案都涉及输入数据的正则表达式。不幸的是，如果数据具有相同的严格字母数字结构，那么这些都会失败。

如何确定哪些字符串是真正经过 Base64 编码的？

Answer 1

我最终对临时变量的所有内容进行解码，并看到输出包含任何高八位字节输出。

    $value2=decode_base64( $hash{$key} );
    if( !( $value2 =~ m/[\x7F-\xFF]/ ) )
    {
        print "It appears that $key is base64 encoded.\n";
        $value=$value2;
    }
    else
    {
        print "It appears that $key is not base64 encoded.\n";
    }