34 

    34 

    35     find(

    35     find(

    36         sub {

    36         sub {

    37             say "dir $File::Find::name" and return if -d;

    37             say "dir $File::Find::name" and return if -d;

    38             return if not (-f and /^[\da-f]{32}(?:\.x\.gz|\.gz)?$/);

    38             return if not (-f and /^[\da-f]{32}(?:\.x\.gz|\.gz)?$/);

    39 

    40 

    40             open(my $fh, $_);

    41             open(my $fh, $_);

    41             my ($buffer, $zbuffer);

    42             my ($buffer, $zbuffer);

    42             my ($tmp);

    43             my ($tmp);

    43 

    44 

    54 

    55 

    55                 $tmp = File::Temp->new(DIR => ".", TEMPLATE => ".tmp-XXXXXX");

    56                 $tmp = File::Temp->new(DIR => ".", TEMPLATE => ".tmp-XXXXXX");

    56                 print {$tmp} $buffer;

    57                 print {$tmp} $buffer;

    57                 rename $tmp->filename => basename($_, ".gz");

    58                 rename $tmp->filename => basename($_, ".gz");

    58                 say "uncompressed $_";

    59                 say "uncompressed $_";

    59 

    61 

    60             }

    62             }

    61             else {

    63             else {

    62                 $buffer = <$fh>;

    64                 $buffer = <$fh>;

    63                 gzip(

    65                 gzip(

    70 

    72 

    71                 $tmp = File::Temp->new(DIR => ".", TEMPLATE => ".tmp-XXXXXX");

    73                 $tmp = File::Temp->new(DIR => ".", TEMPLATE => ".tmp-XXXXXX");

    72                 print {$tmp} $zbuffer;

    74                 print {$tmp} $zbuffer;

    73                 rename $tmp->filename => "$_.gz";

    75                 rename $tmp->filename => "$_.gz";

    74                 say "  compressed $_";

    76                 say "  compressed $_";

    75             }

    78             }

    76 

    79 

    77             close $tmp;

    80             close $tmp;

    78             unlink $tmp, $_;

    81             unlink $tmp, $_;

    79 

    82