教你用Perl 实现Base64编码

发布时间：2020-12-16 00:06:59 所属栏目：大数据来源：网络整理

导读：在用脚本后台发送邮件时，需要将html的内容转换成Base64编码的形式，这样邮件客户端会自动对Base64编码的内容进行解码，还原成原来的内容。 Base64.pl： 01 #!/usr/bin/perl 02 use ? strict; 03 warnings; 04 ? 05 MIME::Base64; 06 07 my ? $line ; 08 $co

在用脚本后台发送邮件时，需要将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编码

关于我：成长的企鹅简介

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!