perl程序——文件的base64编码解码程序(文件操作)

ls0398

#!/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);