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
