教你用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

在用脚本后台发送邮件时，需要将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 open(IN, $ARGV[0]) or dIE  "open $ARGV[0] fail"16 17 18     $/ = undef19     $line = <IN>; 20 }

21

22

$code = encode_base64();

23

print "$code"24

close IN;

 

运行方式:

./Base64.pl a.txt

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

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

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

关于我：成长的企鹅简介

总结

以上是内存溢出为你收集整理的教你用Perl 实现Base64编码全部内容，希望文章能够帮你解决教你用Perl 实现Base64编码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。