view release on metacpan or  search on metacpan

create_backpan_index.pl  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use warnings;
use File::Find::Rule;
use IO::Zlib;
 
my $out = IO::Zlib->new("/vhosts/www.astray.com/site/manatee/root/tmp/backpan.txt.gz", "wb9") || die $!;
 
chdir "BACKPAN";
foreach my $filename (sort File::Find::Rule->new->file->in(".")) {
  my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks)
    = stat($filename);
  print $out "$filename $mtime $size\n";
}
chdir "..";
$out->close;