同学先用了一个perl程序，把ftp.kernl.org上的补丁目录读取在一个文件list中，然后我用了shell把没有打的补丁找出。开始时是用C写的，感觉比较麻烦，于是就边看shell边写了下这个
perl程序如下：[code]#!/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 "Connected\n";
$ftp->login("anonymous","drinkey@163.com") or $newerr = 1;
print "Getting file list\n";
push @ERRORS, "Can't login to $host: $!\n" if $newerr;
$ftp->quit if $newerr;
myerr() if $newerr;
print "Logged in\n";
$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 list\n";
foreach(@files){
if ($_ =~ /patch/ && $_ !~ /sign/ && $_ !~ /gz/){
print DIRC "$_\n";
}
}
$ftp->quit;
sub myerr{
print "Error: \n";
print @ERRORS;
exit 0;
}[/code]shell程序如下：[code]#!/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[/code]
