ubuntu 自动更新内核脚本的perl

转载请保留出处

 http://write.blog.csdn.net/postedit/46726499

#!/usr/bin/perl
system("clear");

#**********************************
#          url && version 
#**********************************
eval{
system("wget ftp://ftp.kernel.org/pub/linux/kernel/v3.x/linux-3.1.10.tar.bz2");
$kernel_version="linux-3\.1\.10";
$pack_name=${kernel_version}."\.tar\.bz2";
system("apt-get install libncurses5-dev build-essential kernel-package");
print "*********************************************\n";
print "The kerlnel $kernel_version is updating ....\n";
print "The process is time consuming,will take about 2H\n";
print "*********************************************\n";
system("rm -fr /usr/src/linux /usr/src/${kernel_version}");
system("cp $pack_name /usr/src/");
system("cd /usr/src/");
system("tar -jxvf ${pack_name}   -C /usr/src/          "); 
system("ln -s /usr/src/$kernel_version  /usr/src/linux-3.1.10 ");
chdir("/usr/src/linux-3.1.10");   
system("make menuconfig                                ");
system("make dep                                       ");
system("make clean                                     ");
system("make bzImage                                   ");
system("make modules                                   ");
system("make modules_install                           ");
system("make install                                   ");
};                                             
if(!$@){                                       
system("cd /lib/modules/3.1.10                         ");
system("update-initramfs -c -k 3.1.10                  ");
system("update-grub                                    ");
print  "The system will reboot 5s later...\n ";
sleep(5);
system("shutdown -r now                                ");
}                                              
print "failed" ;