#!/usr/bin/perl

my $maxcnt = 2;
my $wordcnt = 0;
my $lastlet='a';
my $alphabet = alphabet();
open OUT, ">accelerando_a.html";
while (my $line = <>) {
    chomp $line;
    my ($cnt, $word) = split(/\t/, $line);

    $let = substr($word,0,1);
    if ($let ne $lastlet) {
        print OUT qq(</table>);
        close OUT;
        open OUT, ">accelerando_$let.html";
        print OUT qq(
        Word list from Accelerando by Charlie Stross<br>
        tr -cs A-Za-z '\012' < accelerando.txt | tr  A-Z a-z | sort | ./count.pl | ./makelist.pl 
        $alphabet

        The Letter $let<br>
        <hr>
        <table border=1>
        <tr>
        );
    }

#    print qq(
#        <tr>
#            <td>$cnt</td>
#            <td>$word</td>
#            <td><a href="http://google.com/search?q=define+$word" target=_top>google define $word</a></td>
#            <td><a href="http://en.wikipedia.org/wiki/$word" target=_top>http://en.wikipedia.org/wiki/$word</a></td>
#        </tr>
#    );
    if ($wordcnt > $maxcnt) {
        print OUT qq(</tr><tr>);
        $wordcnt=0;
    }
    
    
    print OUT qq(
             <td> $word ($cnt) <a href="http://google.com/search?q=define+$word" target=_top>goog</a> - <a href="http://en.wikipedia.org/wiki/$word" target=_top>wiki</a>&nbsp;
<a href="http://en.wiktionary.org/wiki/$word">wiktionary</a></td>
    );
    $lastlet=$let;
    $wordcnt++;
};
print OUT qq(</tr></table>);
close OUT;
`cp accelerando_a.html index.html`;

sub alphabet {
    my $st;
    foreach my $let (a..z) {
        $st .= qq(<a href="accelerando_$let.html">$let</a>&nbsp;-);
    }
    $st .= "\n<hr>";
}