| changeset 75 | 9dd924d5a249 |
| parent 69 | c12fa4d32903 |
| child 76 | b87d2064db02 |
| 74:a8495233e04c | 75:9dd924d5a249 |
|---|---|
32 and @ARGV |
32 and @ARGV |
33 or pod2usage; |
33 or pod2usage; |
34 |
34 |
35 find( |
35 find( |
36 sub { |
36 sub { |
37 say "dir $_" 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 |
39 |
40 open(my $fh, $_); |
40 open(my $fh, $_); |
41 my ($buffer, $zbuffer); |
41 my ($buffer, $zbuffer); |
42 my ($tmp); |
42 my ($tmp); |