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"; 
    }