On Fri, 2 Aug 2002, Nicholas Clark wrote:
: On Fri, Aug 02, 2002 at 08:53:51AM -0400, Trey Harris wrote:
: > (With the possible exception of modules that disobey the laws of physics,
: > but I'm not putting anything past Larry... no strict 'physics' ;)
: 
: Yay!
: 
: $ cat infinite_compression.pl
: #!/usr/local/bin/perl6
: use strict;   # Hopefully this triggers the p5 to p6 convertor.
: use warnings;
: no strict 'physics';
: use Compress::SnakeOil;
: 
: while my $infile (@ARGV) {
:   my $outfile = "$infile.inf";
:   compress_file (infile => $infile, outfile => $outfile, level => "Infinite");
:   die "Problem compressing $infile to $outfile" unless -z $outfile;
: }
: __END__
: 
: 
: I do hope that works. :-)

Infinite compression works great.  Unfortunately, it's lossy.
And done right, it requires infinite time.

Larry

Reply via email to