#!/usr/bin/env perl print "Rebuilding the index file for wxhelp...\n"; chdir "../help/wxhelp"; @files = glob("*.htm"); open OF, ">audacity.hhk"; print OF < Index

; close IF; foreach $l (@lines) { if ($l =~ "([^<]*)") { $phrase = $1; @words = split(" ", $phrase); if (@words <= 5 && $phrase ne "Audacity") { $dict{$phrase} = $f; } } } } } foreach $d (keys %dict) { $f = $dict{$d}; print OF "\t

\n"; }; print OF < ENDF close OF; # arch-tag: 89455395-07c3-4a9a-a359-063d7b5883e6