#!/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);
分享到:
相关推荐
BASE64编码在HTTP、电子邮件的协议处理中频繁使用。本程序演示了使用perl进行BASE64编、解码的基本方法。
离线安装包,亲测可用
离线安装包,亲测可用
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
适合初学perl教程 适合初学perl教程 适合初学perl教程
最经典的PERL学习文件,入门宝典,附加有精选练习题目
一些文件是uff16格式,虽然也是文本类型文件,但读取总是出现乱码,因此写了一个程序,可实现对UTF16编码的文件转换为utf8编码文件,请大家下载之前查清楚自己遇到的文件是否是utf16格式的.否则无效哦.使用方法请打开脚本...
代码很简短,可以很直接的了解怎么把图片转换成base64代码,可以节省服务器空间,但会增加数据库容量,淘宝的一些站点都使用了此技术。
利用perl在windows上提取文件夹里的文件,并将文件夹删掉。
官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装
perl archive 打包,加密程序,可以隐藏文件
用perl程序实现文本文件到mysql数据的自动加载.
perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件
Perl 5 教程 by flamephoenix 第一部分 Perl语言 第一章 概述 一、Perl是什么? 二、Perl在哪里? 三、运行 四、注释 第二章 简单变量 一、整型 二、浮点数 三、字符串 第三章 操作符 一、算术操作符 二、整数...
Perl学习的必备,讲解详细具体,很容易入门。
一本关于Perl的入门级教程,循序渐进讲解如何用Perl进行程序设计
搭建Qt+mqtt环境使用到的perl下载
学习perl语言的可以作参考
可能太乱了,但是至少可以提供给大家一个范例,使用perl创建xlsx(2007)、读文本文件然后抓取数据生成xlsx文件(具体内容是ezplan提取的drill信息的文本,然后排序 由小到大,第一行指定0.125,第二行0.4,pre放在...
对学习使用Perl操作文件时写的,在开始学习对Perl文件操作时,使用了$_,导致调试了很长时间,现在改正后做笔记到此