前文中提到要用PERL的一个正则表达式语句实现RLE 的压缩解压, 却只发了一个解压的.
这里是压缩版:
sub rle_compress_re
{
my $data = shift;
$$data =~ s{
#un-repeated byte, up to 128 bytes
\G( (?: (\C)(?!\2) ){1,128}) |
#repeated byte, up to 129 bytes
\G( (?: (\C)(?=\4) ){1,128}\4)
}
{
defined($1)
? chr( length($1)-1 ) . $1
: chr(257-length($3) ) . substr($3,0,1);
}gosex;
}
一样的gosex, 一样的NB.
测试:
#!/usr/bin/perl -w
#============= 测试 Perl的正则表达式实现RLE压缩解压 ==========
#将第一个参数所代表的文件名, 一下全读到变量 $data中.
open(FILE, "<$ARGV[0]"); binmode(FILE);
undef $/;
$data = <FILE>;
close(FILE);
system("md5sum $ARGV[0]");
#RLE 压缩
rle_compress_re( \$data ); #传递变量的引用, 提高效率
#RLE 解压, 为防止负负得正这种以错纠错的行为, 解压要使用非正则表达式, 甚至非
#PERL的版本来验证.
rle_uncompress_re( \$data ); #传递变量的引用, 提高效率
open(FILE, ">output.dat"); binmode(FILE);
print FILE $data;
close(FILE);
system("md5sum output.dat"); #行不行就看这个MD5 和跟前面的那个是否一样了
|