统计软件包占用空间的脚本

得益于 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