Décodeur à plusieurs lignes Base64

Question

Je suis à la recherche d'un script Perl capable de décoder plusieurs lignes de chaînes encodées en Base64. J'ai trouvé quelques outils pour faire le travail ligne par ligne. Ce qui prend beaucoup de temps compte tenu du nombre de lignes que j'ai. Je peux avoir toutes les chaînes dans un fichier de base appelé "infile.txt", serait-ce possible d'exécuter un script perl pour convertir toutes les lignes dans "infile.txt" en "outfile.txt" et en gardant une ligne par chaîne ?

Merci de me guider.

Answer 1

Si chaque ligne a été le résultat d'un encode:

while (<>) 
    chomp; 
    print decode_base64($_), "\n"; 
} 

Si le fichier entier était le résultat d'une encode:

local $/; 
while (<>) { 
    print decode_base64($_); 
}