MIME::Base64, encode_base64(), decode_base64()

来源:互联网 发布:云计算培训大纲课程 编辑:程序博客网 时间:2024/06/05 07:15

用来处理MIME/BASE64编码。

#!/usr/bin/perl -w use strict; use MIME::Base64; foreach(<DATA>) {    print decode_base64($_); } exit 0

__DATA__

xOO6w6Osu7bTrcC0tb1jaGluYXVuaXguY29tIFtwZXJsXbDmIQo=

1eLKx2Jhc2U2NLHgwuu1xMD919OjrNPJTUlNRTo6QmFzZTY0xKO/6cC0veLC66GjCg==

cGVybGRvYyBNSU1FOjpCYXNlNjQgZm9yIGRldGFpbHMsIGVuam95IGl0IDopCg==
0 0
原创粉丝点击