未命名  

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;

 

 

 

 

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

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

关于我:成长的企鹅简介

創作者介紹
創作者 shadow 的頭像
shadow

資訊園

shadow 發表在 痞客邦 留言(0) 人氣()