Date: Fri, 30 Jun 2006 14:56:49 +0700 From: "Vadim Goncharov" <vadimnuclight@tpu.ru> To: MonkeyBrains <crapsh@monkeybrains.net>, freebsd-current@freebsd.org Subject: Re: one liner to clean up your /usr/ports/distfiles Message-ID: <optbx8cz0d4fjv08@nuclight.avtf.net> In-Reply-To: <44A4CBE1.9060205@MonkeyBrains.NET> References: <44A4CBE1.9060205@MonkeyBrains.NET>
next in thread | previous in thread | raw e-mail | index | archive | help
30.06.06 @ 13:59 MonkeyBrains wrote:
> 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
portsclean -D
This one-liner removes even more older distfiles.
--
WBR, Vadim Goncharov
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?optbx8cz0d4fjv08>