教你用Perl 实现Base64编码

在用脚本后台发送邮件时，需要将html的内容转换成Base64编码的形式，这样邮件客户端会自动对Base64编码的内容进行解码，还原成原来的内容。

Base64.pl：

01	#!/usr/bin/perl

02	use strict;

03	use warnings;

04

05	use MIME::Base64;

06

07

my $line;

08

my $code;

09

10	if (@ARGV < 1)

11

{

12	die "usage: ThisCmd <filename>";

13

}

14

15	open(IN, $ARGV[0]) or die  "open $ARGV[0] fail";

16

17

{

18	$/ = undef;

19	$line = <IN>;

20

}

21

22	$code = encode_base64($line);

23	print "$code";

24

close IN;

 

运行方式:

./Base64.pl a.txt

a.txt就是需要进行编码的文件。

原创文章，转载请注明： 转载自成长的企鹅

本文链接地址： 教你用Perl 实现Base64编码

关于我：成长的企鹅简介