`
anson_xu
  • 浏览: 500622 次
  • 性别: Icon_minigender_1
  • 来自: 惠州
社区版块
存档分类

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

    博客分类:
  • php
阅读更多
#!/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);
分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics