in reply to Newbie question, advice appreciated
Viewing the html source for the page, I see that the data sample really looks like this:
This clarifies your request quite a lot. Here's a simple solution:# STANDARD This is some text that describes function seventhdoesnotgetenoughsleep
my %funcs; my $comment; while (<>) { if ( /^# STANDARD (.*)/ ) { $comment = $1; } elsif ( /^function (\S+)$/ ) { $funcs{$1} = $comment; } } # now layout a nice HTML page that tabulates # the keys and values of %funcs print "<HTML> blah blah blah <table><tr><th>Name</th><th>Desc</th></tr +>\n"; print "<tr><td> $_ </td><td> $funcs{$_} </td></tr>\n" for ( sort keys +%funcs ); print "</table> blah blah blah </HTML>\n";
|
---|