Ftp客户端

开发平台：

Unix_Linux

ShowUndocumented：源码内容

							#!/usr/bin/perl
open(DOC,"grep '<li><a href="#' Configuration.html | cut -d'"' -f2 | cut -d'#' -f2 | sort|");
while(<DOC>) {
    chomp;
    $doc{$_} = 1;
}
open(UNDOC,"./GetConf ../*/*.c|");
while(<UNDOC>) {
    chomp;
    s/^s+//;
    s/s+$//;
    s/^<//;
    s/^///;
    s/>$//;
    
    next unless length($_) > 0;
    
    if(/^Module ([^s]*):$/) {
	$module = $1;
	$newmod = 1;
	next;
    }
    
    if(!$doc{$_}) {
	if($newmod) {
	    print "nModule: $modulen";
	    $newmod = 0;
	}
	
	print "  $_n";
    }
}

						