SNMP编程

开发平台：

Unix_Linux

FAQ2HTML：源码内容

							#!/usr/bin/perl -w
$TOCHEADER=" TABLE OF CONTENTS";
open(O, ">FAQ.html");
print O '<p class="SectionTitle">
FAQ
</p>
FAQ Maintainer: Dave Shield<br/>
Email: <a href="mailto:net-snmp-coders@lists.sourceforge.net">net-snmp-coders@list.sourceforge.net</a><br/>
<hr/>
<h2>Table of Contents</h2>
';
# Load FAQ into memory
while(<>) {
  push (@faqfile, $_);
}
my $current_line = 0;
# Skip header up to table of contents
while($current_line <= $#faqfile) {
    $_ = $faqfile[$current_line];
    $current_line++;
    last if (/$TOCHEADER/);
}
# Create table of contents
while($current_line <= $#faqfile) {
    $_ = $faqfile[$current_line];
    
    #Skip blank lines
    if (/^s*$/) {
      $current_line++;
      last;
    }
    chomp();
    # Remove white space at start of line
    $_ =~ s/^ *//;
    
    $x = $_;
    # Remove white space at start of line
    $x =~ s/^ *//g;
    # Replace all non alpha characters with _
    $x =~ s/[^a-zA-Z]/_/g;
    # Save cleaned up line
    $xlate{$_} = $x;
    if ( /&/ ) { $_ =~ s/&/&amp;/g; }
    if ( /</ ) { $_ =~ s/</&lt;/g; }
    if ( />/ ) { $_ =~ s/>/&gt;/g; }
    if (/^[ A-Z]+$/) {
        # Section header (eg: GENERAL)
	print O "</ul><b>$_</b><ul>n";
    } else {
        # Question / answer - create link to it
        if ($faqfile[$current_line+1] =~ /^     */) {
          
          # Continuation of the question.
          $current_line++;
          my $part2 = $faqfile[$current_line];
          
          # Remove white space at start of line
          $part2 =~ s/^ *//;
          print O "<li> <a href="#$x">$_ $part2</a></li>n";
        }
        else {
          print O "<li> <a href="#$x">$_</a></li>n";
        }
    }
    $current_line++;
}
print O "</ul><hr/><pre>n";
# Print contents with targets defined
while($current_line <= $#faqfile) {
    $_ = $faqfile[$current_line];
    $current_line++;
    chomp();
    $y = $_;
    if (defined($xlate{$y})) {
	print O "<a name="$xlate{$y}"></a>n";
    }
    if ( /&/ ) { $_ =~ s/&/&amp;/g; }
    if ( /</ ) { $_ =~ s/</&lt;/g; }
    if ( />/ ) { $_ =~ s/>/&gt;/g; }
    print O "$_n";
}
print O '
</pre>
';

						