Question

我正在寻找能够解码多行Base64编码字符串的perl脚本。我找到了一些工具来逐行完成工作。考虑到我拥有的线路数量，这真的非常耗时。我可以在一个名为“infile.txt”的基本文件中包含所有字符串，是否可以运行perl脚本将“infile.txt”中的所有行转换为“outfile.txt”并为每个字符串保留一行？

感谢指导我。

Answer 1

如果每一行都是编码的结果：

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

如果整个文件是编码的结果：

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

Base64多行解码器

1 个答案: