Re: Compressing a string, but leaving it as a string

hacker,
I'm not trying to obfuscate the string,...

I couldn't resist. This is a 8bit <-> 7bit conversion utility so only ASCII 0 - 127 is supported.

#!/usr/bin/perl
use strict;
use warnings;

my $foo = compress( join '', 'a' .. 'z' );
print length $foo, "\n";
print grow( $foo );

sub compress {pack'b*',join'',map{sprintf'%b',ord}split//,pop} 
sub grow {join'',map{chr oct"0b$_"}grep$_,split/(.{7})/,join'',map{vec
+"@_",$_,1}0..length("@_")*8-1}
[download]

With a reduction of 12.5%, I doubt you really want to use it though.

Cheers - L~R

Comment on Re: Compressing a string, but leaving it as a string Download Code

Replies are listed 'Best First'.
Re^2: Compressing a string, but leaving it as a string by Anonymous Monk on Feb 17, 2011 at 14:56 UTC
It seems the compress function cannot handle spaces and digits, etc. Should the sprintf not always print 7 digits? In that case, I suggest the following compress function: `sub compress {pack'b*',join'',map{sprintf'%07b',ord}split//,pop}` [download]	[reply] [d/l]
Re^3: Compressing a string, but leaving it as a string by Limbic~Region (Chancellor) on Feb 17, 2011 at 18:26 UTC
Anonymous Monk, Nice catch. As you could probably tell, I posted mostly as a joke and didn't use proper sample data in my testing. I wouldn't use this in any production code. Cheers - L~R	[reply]