现在的位置: 首页 > 编程语言 > perl > 正文
教你用Perl 实现Base64编码
2013年07月07日 perl, 程序人生, 编程语言 ⁄ 共 344字 评论数 1 ⁄ 被围观 12,295 views+

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

 

运行方式:

./Base64.pl a.txt

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

原创文章,转载请注明: 转载自成长的企鹅

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

关于我:成长的企鹅简介

目前有 1 条留言 其中:访客:0 条, 博主:0 条 引用: 1

    查看来自外部的引用: 1

    给我留言

    留言无头像?


    ×