67 lines
1.4 KiB
Bash
67 lines
1.4 KiB
Bash
#!/bin/bash
|
|
|
|
# pacsysclean - Sort installed packages by increasing installed size. Useful for system clean-up.
|
|
|
|
declare -r myname='pacsysclean'
|
|
declare -r myver='@PACKAGE_VERSION@'
|
|
|
|
PACMAN_OPTS=
|
|
|
|
usage() {
|
|
echo "${myname} (pacman) v${myver}"
|
|
echo
|
|
echo "Sort installed packages by increasing installed size. Useful for"
|
|
echo "system clean-up."
|
|
echo
|
|
echo "Usage: ${myname} [options]"
|
|
echo
|
|
echo "Options:"
|
|
echo " -o <options> Specify custom pacman query options (e.g., dt)"
|
|
echo " -h, --help Show this help message and exit"
|
|
}
|
|
|
|
version() {
|
|
printf "%s %s\n" "$myname" "$myver"
|
|
echo 'Copyright (C) 2011 Eric Bélanger <snowmaniscool@gmail.com>'
|
|
}
|
|
|
|
if [ -n "$1" ]; then
|
|
case "$1" in
|
|
-o) PACMAN_OPTS="${2}" ;;
|
|
-h|--help) usage; exit 0 ;;
|
|
-V|--version) version; exit 0 ;;
|
|
*) usage; exit 1 ;;
|
|
esac
|
|
fi
|
|
|
|
IFS=$'\n'
|
|
name="^Name.*: (.*)$"
|
|
size="^Installed Size.*: (.*) KiB$"
|
|
|
|
[[ $PACMAN_OPTS && $PACMAN_OPTS != -* ]] && PACMAN_OPTS="-$PACMAN_OPTS"
|
|
|
|
for line in $(LANG=C pacman -Qi $PACMAN_OPTS); do
|
|
if [[ $line =~ $name ]]; then
|
|
printf "%s\t" ${BASH_REMATCH[1]}
|
|
elif [[ $line =~ $size ]]; then
|
|
printf "%s\n" ${BASH_REMATCH[1]}
|
|
fi
|
|
done | sort -g -k2 | awk '
|
|
BEGIN {
|
|
split("KiB MiB GiB TiB PiB EiB ZiB YiB", suffix)
|
|
}
|
|
function format_size(size) {
|
|
count = 1
|
|
while (size + 0 > 1024) {
|
|
size /= 1024
|
|
count++
|
|
}
|
|
sizestr = sprintf("%.2f %s", size, suffix[count])
|
|
return sizestr
|
|
}
|
|
{
|
|
printf("%s\t%s\n", format_size($2), $1);
|
|
}'
|
|
|
|
# vim: set noet:
|