压缩特定文件并删除源文件perl

#!/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模块中的默认压缩比低一个级别。