FreeBSD用小脚本,用来统计并显示各个包的空间占用。

很慢……

#! /usr/bin/perl
open(STDOUT,'| sort -n');
$sum=0;
while(<STDIN>)#`pkg_info -s '*'`)
{
    if (/^Pack/) { next; }
    unless (/for/ || /block/) { next; }
    if (/^Info/) {
        chop;
        /(^.*) (.*):$/;
        $x=$2;
    } else {
        chop;
        /(^\d+)/;
        $sum+=$1;
        print "$_ $x \n";
    }
}
printf "%8d(1K-blocks) total\n",$sum;
close(STDOUT);