emerge升级时候产生很多旧文件旧包，有无完美的命令一次能清除呢？

xiaosir

升级了kde3.4,发现3.3.2还上百M文件存在，/usr/portage/distfiles/下也有不用的旧包，请问怎样才能比较好的清理垃圾？

Blahster

emerge -c

xiaosir

这个命令起不到任何作用

soloforce

unmerge package completely

1. 
   
2. emerge --unmerge xxxx (unmerge xxx and remove xxx from world file)
   
3. emerge -pv depclean  (check if exist any package that should not be cleaned)
   
4. emerge -v depclean (deep clean procedure)
   
5. revdep-rebuild -v (dependence rebuild, package 'gentoolkit' expected maybe)
   
6. glsa-check -f all (GLSA check)
   

复制代码

clear distfiles unused:
i've got a script for forums.gentoo.org  that may do this work for me

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. my $lastname = 0;
   
6. my $lastversion;
   
7. my $lastext;
   
8. my @stalefiles;
   
9. my @files;
   
10. 
    
11. # Insert your exclusions here with trailing '-'
    
12. my %maskedfiles = (
    
13.    'X420src-' => 1,
    
14.    'gcc-' => 1,
    
15.    'freetype-' => 1
    
16. );
    
17. 
    
18. # Root check
    
19. if ($< != 0) {
    
20.    print "You must be root to run this script.\n";
    
21.    exit 0;
    
22. }
    
23. 
    
24. # Determine sources present on the system
    
25. print "Determining available tarballs in /usr/portage/distfiles ...\n";
    
26. opendir(DIR, "/usr/portage/distfiles");
    
27. @files = sort(readdir(DIR));
    
28. closedir(DIR);
    
29. 
    
30. # Grab names/versions, checking each time whether current distfile
    
31. # has been superceded. Push anonymous array ref containing required
    
32. # info into @stalefiles array.
    
33. print "Determining stale versions ...\n";
    
34. foreach (@files) {
    
35.    my $name;
    
36.    my $version;
    
37.    # Only operate on tarballs   
    
38.    if (/(.+?\-)([0-9r\.\-]+)(\.tar\.gz|\.tgz|\.tar.bz2)/s) {
    
39.       $name = $1;
    
40.       $version = $2;
    
41.       next if ($maskedfiles{$name}); # Ignore "masked" files
    
42.       if ($lastname && $name eq $lastname) {
    
43.          if ($version gt $lastversion) {
    
44.             push (@stalefiles, [$name, $version, $lastversion, $lastext]);
    
45.          }
    
46.       }
    
47.       $lastname = $name;
    
48.       $lastversion = $version;
    
49.       $lastext = $3;
    
50.    }
    
51. }
    
52. 
    
53. if (@stalefiles == 0) {
    
54.    print "\nNo stale distfiles have been detected on your system!\n";
    
55.    exit 0;
    
56. }
    
57. 
    
58. if ($ARGV[0] && $ARGV[0] eq '--nopretend') {
    
59.    # User requested deletion so here goes ...
    
60.    print "*Nopretend* mode, deleting stale files:\n\n";
    
61.    foreach (@stalefiles) {
    
62.       my ($name, $version, $lastversion, $ext) = @{$_};
    
63.       unlink('/usr/portage/distfiles/' . $name . $lastversion . $ext);
    
64.       print "Deleted: $name$lastversion in favour of $name$version\n";
    
65.    }
    
66. }
    
67. else
    
68. {
    
69.    # Safe mode (default)!
    
70.    print "\7*Pretend* mode, will only pretend to delete files.\nTo actually delete the files, reinvoke with the --nopretend parameter.\n\n";
    
71.    foreach (@stalefiles) {
    
72.       my ($name, $version, $lastversion, $ext) = @{$_};
    
73.       print "Would delete: $name$lastversion in favour of $name$version\n";
    
74.    }
    
75. }
    
76. 1;
    
77. 
    

复制代码

xiaosir

相比之下，archlinux的pacman -Sc,pacman -Scc命令就方便多了

Freesnake

手动清除得了……

fei

http://www.leak.com.ar/~juan/code/distcleaner/
一个解决方案。
官方还没类似freeBSD portsclean -DD的命令是个遗憾--当然也可能是我不知道。