Perl Mime模块
Base64：http://perldoc.perl.org/MIME/Base64.html
文档中：The returned encoded string is broken into lines of no more than 76 characters each and it will end with $eol unless it is empty. Pass an empty string as second argument if you do not want the encoded string to be broken into lines.
我曾把java的证书文件xxx.cer转换成base64编码时，发现直接调用encode_base64( $bytes )函数产生的文件时76个字符每行，当把这种的证书转换成p7b格式时，发现是不能用的，因为可用证书为64个字符每行，于是使用encode_base64( $bytes, $eol )函数，$eol=""，使得base64输出为一行，再分割为64个字符每行。
perl -MMIME::Base64 -e '
undef $/; # 使用默认的行模式
while(<>){
$str=encode_base64($_,"");
}
$str=reverse $str; #反转字符串
@arr = split("",$str);
$count = length($str)/64;
$ys=length($str)%64;
$count++ if $ys!=0;
for (1..$count) {
for (1..64) {
print pop(@arr);
}
print "\n";
}
' xxx.cer
页:
[1]