找出linux系统没有的补丁
| 同学先用了一个perl程序,把ftp.kernl.org上的补丁目录读取在一个文件list中,然后我用了shell把没有打的补丁找出.^_^开始时是用C写的,感觉比较麻烦,于是就边看shell边写了下这个 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ perl程序如下： #!/usr/bin/perl use Net::FTP; my $host="www.kernel.org"; my $directory = "pub/linux/kernel/v2.6"; $ftp = Net::FTP->new($host,Timeout=>240) or $newerr = 1; push @ERRORS, "Can''t connect to ftp $host: $!n" if $newerr; myerr() if $newerr; print "Connectedn"; $ftp->login("anonymous","drinkey@163.com") or $newerr = 1; print "Getting file listn"; push @ERRORS, "Can''t login to $host: $!n" if $newerr; $ftp->quit if $newerr; myerr() if $newerr; print "Logged inn"; $ftp->cwd($directory) or $newerr=1; push @ERRORS, "Can''t cd $!n" if $newerr; myerr() if $newerr; $ftp->quit if $newerr; open (DIRC,">list") or die "$!n"; @files = $ftp->dir or $newerr = 1; push @ERRORS, "Can''t get file list $!n" if newerr; print "Got file listn"; foreach(@files){ if (
 Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved 地址(ADD)：厦门软件园二期望海路63号701E（东南融通旁） 邮编(ZIP)：361008 电话：0592-5908028 传真：0592-5908039 咨询信箱：web@lingzhong.cn 咨询OICQ：173723134 《中华人民共和国增值电信业务经营许可证》闽B2-20100024 ICP备案:闽ICP备05037997号
Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved 地址(ADD)：厦门软件园二期望海路63号701E（东南融通旁） 邮编(ZIP)：361008 电话：0592-5908028 传真：0592-5908039 咨询信箱：web@lingzhong.cn 咨询OICQ：173723134 《中华人民共和国增值电信业务经营许可证》闽B2-20100024 ICP备案:闽ICP备05037997号
Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved 地址(ADD)：厦门软件园二期望海路63号701E（东南融通旁） 邮编(ZIP)：361008 电话：0592-5908028 传真：0592-5908039 咨询信箱：web@lingzhong.cn 咨询OICQ：173723134 《中华人民共和国增值电信业务经营许可证》闽B2-20100024 ICP备案:闽ICP备05037997号
print DIRC "
Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved 地址(ADD)：厦门软件园二期望海路63号701E（东南融通旁） 邮编(ZIP)：361008 电话：0592-5908028 传真：0592-5908039 咨询信箱：web@lingzhong.cn 咨询OICQ：173723134 《中华人民共和国增值电信业务经营许可证》闽B2-20100024 ICP备案:闽ICP备05037997号
} } $ftp->quit; sub myerr{ print "Error: n"; print @ERRORS; exit 0; } ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ shell程序如下： #!/bin/bash clear awk ''{print $9}'' list > newList grep ''patch-2.[0-9].[0-9][0-9]*.bz2'' newList > new_list_test awk ''{print substr($1,7,99)}'' new_list_test > near_final uname -r | tr - ''n'' > getKernelType
exec 4<&0 0< getKernelType read nowType nowType=$nowType".bz2" #echo $nowType #line_num=`wc -l near_final | awk ''{print $1}''` #echo $line_num for i in `cat near_final` do line=$i if [ $nowType < $line ] then echo $line fi done
|
||||||||||||||||||||||
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |