在用脚本后台发送邮件时，需要将html的内容转换成Base64编码的形式，这样邮件客户端会自动对Base64编码的内容进行解码，还原成原来的内容。
Base64.pl：
01
|
#!/usr/bin/perl
|
| 02 | use strict;
|
| 03 | warnings; |
04
| 05 | MIME::Base64; |
06
07
my
$line;
08
$code
;
| 09 |
10
if
(@ARGV < 1)
| 11 | {
|
12
}
die "usage: ThisCmd <filename>"13
14
15
17
18
open(IN, $ARGV[0]) or die "open $ARGV[0] fail"16
$/ = undef19
$line = <IN>;
20
}
| 21 | 22 | $code = encode_base64();
|
| 23 | print "$code"24
|
close IN;
|
运行方式:
./Base64.pl a.txt
a.txt就是需要进行编码的文件。
