教你用Perl 实现Base64编码
在用脚本后台发送邮件时，需要将html的内容转换成Base64编码的形式，这样邮件客户端会自动对Base64编码的内容进行解码，还原成原来的内容。Base64.pl：
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64;
my $line;
my $code;
if (@ARGV < 1)
{
die "usage: ThisCmd <filename>";
}
open(IN, $ARGV) or die"open $ARGV fail";
{
$/ = undef;
$line = <IN>;
}
$code = encode_base64($line);
print "$code";
close IN;
运行方式:
./Base64.pl a.txt
a.txt就是需要进行编码的文件。
http://bcs.duapp.com/wordpressfirst/blog/201309/weixin.jpg 原创文章，转载请注明： 转载自成长的企鹅
本文链接地址： 教你用Perl 实现Base64编码
关于我：成长的企鹅简介
页:
[1]