根据包大小排序的脚本...

huntxu

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my %pacsize;
   
5. my $sum = 0;
   
6. chomp (my @pacname = `pacman -Qq`);
   
7. foreach (@pacname) {
   
8.     if (`pacman -Qi $_` =~ /([0-9]*\.[0-9]{2}) K/) {
   
9.         $pacsize{$_} = $1;
   
10.     }
    
11. }
    
12. my @package = sort {
    
13.     $pacsize{$b} <=> $pacsize{$a}
    
14.         or
    
15.     $a cmp $b
    
16. } keys %pacsize;
    
17. foreach (@package) {
    
18.     printf "%10.2f KB : %s\n", $pacsize{$_}, $_;
    
19.     $sum += $pacsize{$_};
    
20. }
    
21. printf "%10.2f KB : Total size\n", $sum;

复制代码

cbkid

支持一下。做个标记

solary.sh

收了，赞一个！