いらないデーモンの一括削除（改）

Perl のワンライナーで、-a オプション（AWK風に使える）を使って以前書いた、「 いらないデーモンの一括削除 - Sleepless geek in Seattle」 を改良した。

いらないデーモンを指定して削除するのではなく、必要なデーモンを指定してそれ以外を削除するようにした。

以下を実行すると、atd crond iptables network postfix snmpd snmptrapd sshd syslog sysstat 以外のデーモンが、chkconfig の一覧から削除される。

# chkconfig --list|perl -anle '`chkconfig --del $F[0]` unless $F[0]=~m/^(atd|crond|iptables|network|postfix|snmpd|snmptrapd|sshd|syslog|sysstat)$/;'