教你用Perl 實現Base64編碼

在用腳本後臺發送郵件時，須要將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編碼

關於我：成長的企鵝簡介