perl -e 'chomp($k=`uname -r`); for () {s/^.*vmlinuz-($k)?//; $l.="linux-image-$_ ";} system "aptitude remove $l";'
Эта команда удаляет все неиспользуемые ядра с помощью aptitude.
Команда начинается с запуска Perl-скрипта в командной строке (-e), который выполняет следующие действия:
1. Считывает вывод команды ‘uname -r’ (возвращает версию текущего ядра) и удаляет символы новой строки с помощью функции chomp().
2. Для каждого файла, соответствующего шаблону /boot/vm*, выполняет следующие действия:
— Удаляет префикс «vmlinuz-» с помощью регулярного выражения и сохраняет оставшуюся часть в переменную $_.
— В переменную $l добавляется строка «linux-image-$_ «.
3. Выполняет системную команду «aptitude remove $l» для удаления пакетов, перечисленных в переменной $l.
Эта команда полезна при удалении неиспользуемых ядер Linux с использованием aptitude. Вместо aptitude можно использовать команду apt-get, однако aptitude лучше подходит для управления пакетами, так как он имеет более продвинутые функции, включая удаление неиспользуемых зависимостей. Альтернативой к данной команде может быть использование специализированных инструментов для управления ядрами, таких как утилита purge-old-kernels.