#!/usr/bin/env perl # # Read in the references, and put into an associative array # open FILE, ") { chop; split; $refs{$_[1]} = $_[0]; $defs{$_[0]}{$_[1]}++; } close FILE; # # now loop over the input RFC's. # foreach $file (@ARGV) { $def=$file; $def =~ s/\.txt//; $attribute = "zzzzz"; # get the current reference $ref = $file; $ref =~ s/\..*//g; $rfc = $ref; $ref = "attributes-$ref"; open OUTPUT, ">$ref.html" || die "Error creating $ref.html: $!\n"; # # Print out the HTML header # print OUTPUT < $rfc Index of Attributes

$rfc Attribute List

EOF $letter = "@"; foreach $key (sort keys %{$defs{$def}}) { if (substr($key,0,1) ne $letter) { print OUTPUT "\n" if ($letter ne "@"); $letter = substr($key,0,1); print OUTPUT "\n

$letter

\n\n"; print OUTPUT "

$key

\n"; print OUTPUT "\n"; close OUTPUT; }