base64, 的问题

pitonas

遇到一个问题
我这两行，无法弄清了,需要说明
感激

1. $_ = 'YW55IGNhcm5hbCBwbGVhc3VyZS4=';
   
2. tr#A-Za-z0-9+/##cd;
   
3. tr#A-Za-z0-9+/# -_#;
   
4. 
   
5. # space = 32, _ = 95, 95-32+1 =64  
   
6. # 转换成 uuencode 格式
   
7. 
   
8. 
   
9. # 不明白这两行 ? 它在做什麽 ?
   
10. ###################################################
    
11. 
    
12. my $len = pack( "c", 32 + 3 / 4 * length );
    
13. say unpack( "u", $len . $_ );               
    
14. # $len . $_   它在做什麽 ? 没看明白你这么做的目的
    
15. ###################################################

复制代码

需要说明
感激 {:2_172:}

zhlong8

回复 1# pitonas


    02行清除无意义的字符（非字母数字和 +/ 的）http://perldoc.perl.org/perlop.h ... uote-like-Operators 的 tr 那一节有详细解释

    13行 $len . $_ 这个查维基百科，

每60个编码输出（相当于45个输入字节）将输出为独立的一行，每行的开头会加上长度字符，除了最后一行之外，长度字符都应该是'M'这个ASCII字符（77=32+45），最后一行的长度字符为32+剩下的字节数目这个ASCII字符。

zhlong8

略偏，我也是现查的，都是死知识想想怎么查反而更重要

pitonas

{:2_172:} 发现UUencode 不是 base64
{:2_169:} 我查的是base64的维基百科
感激

回复 3# zhlong8