debianの最近のブログ記事

http://floralcompany.jp/archives/2009/02/obsolete.html のおまけ。

perlならone-linerでいけるよね っと。

perl -e 'print join q/ /, grep { grep /^Tag:.*special::obsolete/, qx/apt-cache show $_/ } map { (split /\s+/)[1] } grep /^.i/, split qq/\n/, qx/dpkg -l/'

#/bin/sh

for i in `dpkg -l | egrep ^.i | awk '{print $2}'`
do
  apt-cache show $i | grep Tag: | grep special::obsolete > /dev/null 2>&1
  if [ $? == 0 ]; then
    echo $i
  fi
done

後は apt-get remove なり aptitude purge なり