#!/usr/bin/perl &do_help_file(); sub do_help_file { local($/); open(HF,"../lib/help_table") || die "$!\n"; $chunk = <HF>; print length($chunk) , "\n"; @a=split('#',$chunk); shift(@a); printf " <select>\n"; @klist = (); foreach $x (@a){ s/^\n//; @b=split("\n",$x); shift(@b); $k = shift(@b); $d = join("\n",@b); if($k =~ /\"/){ $k =~ s/\"//g; @kl = ($k); } else { @kl = split(' ',$k); } foreach $y (@kl){ push(@klist,$y); } } foreach $x (sort @klist){ printf " <option>%s\n", $x; printf " </select>\n"; }