[prev] [index] [next]

Perl Version #2

Comments on this implementation:
  • uses <> and split to break input stream into words
  • uses some advanced features of Perl (e.g. two-dimensional hash table)
  • each data value in the statetab hash is a secondary hash
  • each data value in the secondary hash is an array of suffix words
  • choose suffix by generating a random index into the suffix array