#!/usr/bin/perl
use MIME::Base64;
#@ARGV命令行参数数组
$op=@ARGV[0];
$filename=@ARGV[1];
#open打开文件
#具体可以参见Perl文件及目录操作
unless(open(FH,"$filename")) {
die "\nCan not open file $filename !\n\n";
}
#将整个文件读入$file的一种方法
#undef $/;
#$file=<FH>;
#seek 设置文件的当前位置
#seek FILEHANDLE,POSITION,WHENCE 成功返回真。
#WHENCE 有3个值，0表示起始位置,1表示当前位置，2表示文件尾
seek(FH,0,2);
$len=tell(FH);
seek(FH,0,0);
read(FH,$file,$len);
if($op eq 'e') {
print encode_base64("$file");
}
elsif($op eq 'd') {
print decode_base64("$file");
}
else {
die "\nUsage: ./endecbase64.pl [de] filename !\n\n";
}
close(FH);
use MIME::Base64;
#@ARGV命令行参数数组
$op=@ARGV[0];
$filename=@ARGV[1];
#open打开文件
#具体可以参见Perl文件及目录操作
unless(open(FH,"$filename")) {
die "\nCan not open file $filename !\n\n";
}
#将整个文件读入$file的一种方法
#undef $/;
#$file=<FH>
#seek 设置文件的当前位置
#seek FILEHANDLE,POSITION,WHENCE 成功返回真。
#WHENCE 有3个值，0表示起始位置,1表示当前位置，2表示文件尾
seek(FH,0,2);
$len=tell(FH);
seek(FH,0,0);
read(FH,$file,$len);
if($op eq 'e') {
print encode_base64("$file");
}
elsif($op eq 'd') {
print decode_base64("$file");
}
else {
die "\nUsage: ./endecbase64.pl [de] filename !\n\n";
}
close(FH);
发表评论 
打印本文
推荐本文
加入收藏
返回顶部
关闭窗口
