Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1376729
  • 博文数量: 236
  • 博客积分: 4966
  • 博客等级: 上校
  • 技术积分: 3342
  • 用 户 组: 普通用户
  • 注册时间: 2006-11-13 01:03
文章分类

全部博文(236)

文章存档

2017年(2)

2016年(1)

2015年(8)

2014年(11)

2013年(45)

2012年(27)

2011年(22)

2010年(31)

2009年(37)

2008年(6)

2007年(45)

2006年(1)

分类:

2009-10-30 13:44:28

#!/usr/bin/perl -w

use strict ;
use warnings ;
use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
for my $input ( glob "c:/temp/*.exe" )
{
my $output = "$input.bz2" ;
bzip2 $input => $output
or die "Error compressing '$input': $Bzip2Error\n";
unlink $input;

}

后话:两者比较,perl移植性蛮强的,但是都采用tar压缩过程中,bash脚本中的tar压缩率比perl中的IO::Compress::Bzip2模块高几个百分点,另外bash脚本中的则是直接调用系统中的tar命令,猜测可能是perl中bzip2模块中的默认压缩比低一个级别。

阅读(1385) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册