有哪些方法可以使用Perl翻译base64编码的文件?
我想查看和编辑该文件。
$ file base64result
base64result: XML document
$ls -l base64result
-rw-r--r-- 1 dpadmin appadmin 52K Oct 28 12:57 base64result
这是我尝试过的,但没有成功的方法:
#!/bin/perl
###################################################
# decode_base64.pl:
###################################################
use strict;
use MIME::Base64 qw( decode_base64 );
open INFILE, '<', $ARGV[0];
open OUTFILE, '>', $ARGV[1];
binmode OUTFILE;
my $buf;
while ( $buf = <INFILE> ) {
print OUTFILE decode_base64($buf);
}
close OUTFILE;
close INFILE;
输出:
$cat base64output
Æioz»"¢z{Äž÷¥¢—±šYìz{