| changeset 69 | c12fa4d32903 |
| parent 65 | a10f9c6a0b42 |
| child 75 | 9dd924d5a249 |
| 68:25d318915ae9 | 69:c12fa4d32903 |
|---|---|
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 $_" and return if -d; |
38 return if not -f; |
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); |
43 |
43 |