删除内核的perl脚本

有时候ub用久了，升级多了，内核也更新了一大堆，搞的选择菜单一大堆东西，实在是看不过眼，加上浪费空间，还是删除了好，简洁。不过手动删比较麻烦（本人觉得,呵呵）所以写个脚本，呵呵！
code：

 
 

#!/usr/bin/perl -w

use strict;
die "Permission denied:Perhaps need root\n" if `whoami`!~/root/;    
my @all_image=split("\n",`dpkg --get-selections | grep 'linux-' | grep -v 'deinstall'`);
my @old_image;
foreach(@all_image)
{

    if($_=~s[(linux-image-\d\.\d\.\d{2}-\d{1，2}-generic).*][$1]i)

    {

        push(@old_image,$_);

    }

}

my $i;

my $choose;

while(1)

{

    $i=0;

    foreach(@old_image)

    {

        print ++$i,'.',$_,"\n";

    }

print "please choose image which you want to delete:(0 for quit)";

chomp($choose=<STDIN>);

if($choose==0)

{

    exit(0);

}

elsif($choose>@old_image)

{

    print "\nERROR:Unavailable Selection\n";

    next;

}

last;

}
`apt-get remove $old_image[--$choose] -y`||die "\n";