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

關於我：成長的企鵝簡介