Perl - いつbase64にデコードするのですか？

Question

私は興味深い問題があります。私はさまざまな文字列、いくつかのbase64でエンコードされたもの、他のものではないPerlスクリプトに取り組んでいます。

このデータ構造は、サードパーティのアプリケーションからの入力から生成された動的なものです。私は、これらのフィールドのどれが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"; 
    }