得益于 FreeBSD 的包管理方法，可以很容易地统计出每个软件包占用的空间大小和总大小～
统计下来，总共3.9G左右，OpenOffice最大(310M左右）。
通过这个还知道了最大的几个包，找到几个没用的删掉～ 空间大了不少～

#! /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);

Old Blog Link: http://computer.mblogger.cn/henryhu/posts/62323.aspx