Чистка старых версий портежей

выслать не могу всвязи с незнанием твоего Email...
Вот clean.pl

#!/usr/bin/perl
# Вывод или удаление ненужных distfiles'ов

use Getopt::Long;
use Digest::MD5;
use Term::ANSIColor qw(:constants);
use IO::Handle;

my $portagedir, $distdir, $listfile, $maxsize = -1, @files, @dig;
my %distfiles = (), %digestfiles = ();
my $pr = '\\', $total = 0;

GetOptions("d=s"       => \$distdir,
	   "l=s"       => \$listfile,
	   "size"      => \$size,
	   "md5"       => \$md5,
	   "maxsize=i" => \$maxsize,
	   "maxsize=s" => \$maxsize,
	   "bzip2"     => \$bz,
	   "gzip"      => \$gz,
	   "delete"    => \$delete,
	   "verbose"   => \$verbose,
           "silent"    => \$silent);

$gz = 1 if $listfile =~ s/\.gz$//;
$bz = 1 if $listfile =~ s/\.bz2$//;
if($gz) {
  $ext = "zcat";
  $listfile =~ /\.gz$/ or $listfile .= ".gz";
}
if($bz) {
  $ext = "bzcat";
  $listfile =~ /\.bz2$/ or $listfile .= ".bz2";
}

$distdir or $distdir = "/usr/portage/distfiles";
$listfile or $listfile = "listfile";
$ext or $ext = "zcat";
$listfile =~ /(\.gz)|(\.bz2)$/ or $listfile .= ".gz";
if($maxsize <= -1) {
  $maxsize = 10485760;  # 10485760b = 10Mb
} else {
  $maxsize =~ /^(\d+(\.\d)?)+\s*([GgMmKkBb])/;
#  lc $3; # не работает! почему?!
  if($3 eq 'G' or $3 eq 'g') {
    $maxsize = $1 * 1262485504;
  } elsif($3 eq 'M' or $3 eq 'm') {
    $maxsize = $1 * 1048576;
  } elsif($3 eq 'K' or $3 eq 'k') {
    $maxsize = $1 * 1024;
  } elsif($3 eq 'B' or $3 eq 'b' or  not defined $3) {
    $maxsize = $1;
  } else {
    $maxsize = 10485760;
  }
}

@distdirs = split m#/*,#, $distdir;

foreach $distdir(@distdirs) {
  opendir(DISTDIR, $distdir) or die "Не могу открыть директорию $distdir\n";
  $distfiles{$_} = -s "$distdir/$_"  foreach grep { !(/^\.$/) && !(/^\.\.$/) && -f "$distdir/$_" } readdir(DISTDIR);
  closedir DISTDIR;
}

-e $listfile or die "Нет файла $listfile\nЗапустите сначала ./genlist.pl\n";
open(DIGESTFILES, "$ext $listfile|") or die "Ошибка!\n";
@_ = <DIGESTFILES>;
close DIGESTFILES;

foreach(@_) {
  /^(\S+)\s+(\S+)\s+(\S+)/;     # $1 - md5, $2 - имя, $3 - размер
  $hash = $2;
  $$hash{$3} = $1;
}

foreach my $file (keys %distfiles) {
  running();

  unless(defined %$file) {
    (print "$file\n" and $total += $distfiles{$file}) unless $silent;
    system("rm $distdir/$file\n") if $delete;
    next;
  }
  if($md5 and exists $$file{$distfiles{$file}}) {
    next unless ($maxsize > $distfiles{$file} or $maxsize == 0);
    open(FILE, "<$distdir/$file") or (warn "Не могу открыть $distdir/$file\n" and next);
    binmode(FILE);
    print BOLD,"Неправильная md5-сумма файла ",RED,"$file\n",RESET unless scalar Digest::MD5->new->addfile(*FILE)->hexdigest eq $$file{$distfiles{$file}};
    close FILE;
    next;
  }
  if($size and not exists $$file{$distfiles{$file}}) {
    @sizes = sort keys %$file;
    $ss1 = $distfiles{$file};
    $ss2 = $sizes[$#sizes];
    if(abs($ss2 - $ss1) >= 1262485504) {
      $ss1 = round($ss1, 3);
      $ss2 = round($ss2, 3);
    } elsif(abs($ss2 - $ss1) >= 1048576) {
      $ss1 = round($ss1, 2);
      $ss2 = round($ss2, 2);
    } elsif(abs($ss2 - $ss1) >= 1024) {
      $ss1 = round($ss1, 1);
      $ss2 = round($ss2, 1);
    } else {
      $ss1 = "$ss1 б";
      $ss2 = "$ss2 б";
    }
    $distfiles{$file} < $sizes[$#sizes] and print BOLD,"недокачен ",RESET,GREEN,"$file",RESET,"  -  ",BOLD,BLUE,"$ss1",RESET," из ",BOLD,BLUE,"$ss2\n",RESET and next;
    $distfiles{$file} > $sizes[$#sizes] and print BOLD,"перекачен ",BOLD,GREEN,"$file",RESET,"  -  ",BOLD,BLUE,"$ss1",RESET," из ",BOLD,BLUE,"$ss2\n",RESET and next;
  }
}

print BOLD,"  итого ",BLUE,round($total, 3),"\n",RESET unless $silent;

exit 0;

sub round {
  my ($v, $s) = @_;

  return (int($v / 1262485504)." Гб") if($s >= 3 and $v >= 1262485504);
  return (int($v / 1048576)." Мб") if($s >= 2 and $v >= 1048576);
  return (int($v / 1024)." Кб") if($s >= 1 and $v >= 1024);
  return ($v." б");
}

sub running {
  if($pr eq '|') {
    $pr = '/';
  } elsif($pr eq '/') {
    $pr = '-';
  } elsif($pr eq '-') {
    $pr = '\\';
  } elsif($pr eq '\\') {
    $pr = '|';
  }

  print BOLD,RED,"  $pr\b\b\b",RESET;
  STDOUT->flush;
}

А вот genlist.pl

#!/usr/bin/perl
# Генерим список файлов из digest'ов

use Getopt::Long;
use Term::ANSIColor qw(:constants); 
use IO::Handle;

my $listfile, $portagedir, @dig, %files = ();
my $pr = '\\';

GetOptions("p=s"     => \$portagedir,
           "l=s"     => \$listfile,
	   "z=n"     => \$zzz,
	   "fast"    => \$fast,
	   "best"    => \$best,
	   "bzip2"   => \$bz,
	   "gzip"    => \$gz,
	   "verbose" => \$verbose);

$zzz = 1 if $fast;
$zzz = 9 if $best;
$gz = 1 if $listfile =~ s/\.gz$//;
$bz = 1 if $listfile =~ s/\.bz2$//;
if($gz) {
  $arc = "gzip";
  $listfile =~ /\.gz$/ or $listfile .= ".gz";
}
if($bz) {
  $arc = "bzip2";
  $listfile =~ /\.bz2$/ or $listfile .= ".bz2";
}

$portagedir or $portagedir = "/usr/portage,/usr/local/portage";
$listfile or $listfile = "listfile";
$arc or $arc = "gzip";
$listfile =~ /(\.gz)|(\.bz2)$/ or $listfile .= ".gz";
$zzz or $zzz = 9;

@portdirs = split (/,/, $portagedir);

open(LISTFILE, "|$arc -$zzz -fc > $listfile") or die "Ошибка!\n";

push @digestfiles, glob("$_/*-*/*/files/digest-*") foreach @portdirs;

foreach my $file (@digestfiles) {
  running();
  unless(open(DIGEST, "<$file")) {
    warn "Не могу открыть файл $file\n";
    next;
  }
  @dig = <DIGEST>;
  foreach(@dig) {
    chomp;
    s/^MD5\s+//;
    unless(exists $files{$_}) {
      $files{$_} = 1;
      print LISTFILE "$_\n";
    }  
  }
  close DIGEST;
}

close LISTFILE;

sub running {
  if($pr eq '|') {
    $pr = '/';
  } elsif($pr eq '/') {
    $pr = '-';
  } elsif($pr eq '-') {
    $pr = '\\';
  } elsif($pr eq '\\') {
    $pr = '|';
  }

  print BOLD,RED,"  $pr\b\b\b",RESET;
  STDOUT->flush;
}