Re: [gentoo-user-ru] 4ucTka JIuLLIHux disttfiles

[Zero Z. Zeibov]

úÁÐÕÓË

find /usr/portage|grep "files/digest-"|xargs cat|perl
-alne'$h{$F[2]}="$F[1]";END{@f=qx"ls /usr/portage/distfiles";map
{chomp($_);print "/usr/portage/distfiles/$_" if (!exists $h{$_}) } @f}'

ÐÏËÁÖÅÔ ÆÁÊÌÙ ËÏÔÏÒÙÈ ÎÅÔ ÎÉ × ÏÄÎÏÍ ÉÚ digest-ÆÁÊÌÏ×. äÁÌØÛÅ ÜÔÏÔ
ÓÐÉÓÏË ÍÏÖÎÏ ÎÁÐÒÁ×ÌÑÔØ ÎÁ ×ÈÏÄ rm -rf.
óÂÏÒ ÉÎÆÏÒÍÁÃÉÉ Ï ×ÓÅÈ ÆÁÊÌÁÈ ÐÒÏÈÏÄÉÔ ÏÞÅÎØ ÄÏÌÇÏ, ÐÏÜÔÏÍÕ ÍÏÖÎÏ
ÒÁÚÂÉÔØ ÎÁ Ä×Á ÜÔÁÐÁ:
1. find /usr/portage|grep "files/digest-"|xargs cat>digests.txt
2. perl -alne'$h{$F[2]}="$F[1]";END{@f=qx"ls /usr/portage/distfiles";map
{chomp($_);print "/usr/portage/distfiles/$_" if (!exists $h{$_}) } @f}'
digests.txt

ë ÐÒÉÍÅÒÕ ÍÅÎÑ:
$ du -csh `perl -alne'$h{$F[2]}="$F[1]";END{@f=qx"ls
/usr/portage/distfiles";map {chomp($_);print "/usr/portage/distfiles/$_"
if (!exists $h{$_}) } @f}' digests.txt`
... skiped
1,2G    ÉÔÏÇÏ

Zero Z. Zeibov wrote:

>îÏ ÍÏÖÅÔ ÅÓÔØ ÂÏÌÅÅ ËÒÁÓÉ×ÏÅ ÒÅÛÅÎÉÅ?
>
>

-- 
KN0L3DG3 i$ a P0W3R...
u$3 y0uR P0W3R iN G00D, N07 3ViL


-- 
gentoo-user-ru@g.o mailing list