Date: Thu, 29 Jun 2006 23:59:45 -0700 From: MonkeyBrains <crapsh@MonkeyBrains.NET> To: freebsd-current@freebsd.org Subject: one liner to clean up your /usr/ports/distfiles Message-ID: <44A4CBE1.9060205@MonkeyBrains.NET>
next in thread | raw e-mail | index | archive | help
Ever notice your /usr/ports/distfiles bloats after several years of
updating the same box?
You know those 5 year old drives are about to fail, but, if you want to
clean them up a bit, I like this:
cd /usr/ports/distfiles
perl -e 'while (<*>) { chomp(); $p = $_; $p =~ s/\-\d+\..*// or next;
unlink $X if $X =~ /^$p/; $X = $_;}'
Removes the lower version number of 'double' source files, like these:
-rw-r--r-- 1 root wheel 1282627 Sep 12 2005 tiff-3.7.4.tar.gz
-rw-r--r-- 1 root wheel 1336295 Mar 23 07:15 tiff-3.8.2.tar.gz
Rudy
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?44A4CBE1.9060205>