教你用Perl 实现Base64编码

最新推荐文章于 2024-04-16 13:06:14 发布

成长的企鹅

最新推荐文章于 2024-04-16 13:06:14 发布

阅读量2.5k

点赞数

分类专栏：技术文章标签： Base64编码 perl 程序人生

本文链接：https://blog.csdn.net/xcxinghai/article/details/12871663

版权

技术专栏收录该内容

42 篇文章 0 订阅

订阅专栏

在用脚本后台发送邮件时，需要将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[0]) or die  "open $ARGV[0] fail";
 
 
 
{
 
    $/ = undef;
 
    $line = <IN>;
 
}
 
 
 
$code = encode_base64($line);
 
print "$code";
 
close IN;