Help for this page

Select Code to Download


  1. or download this
                    v----- NOT $count?
while (($word, $occurrence) = $sth->fetchrow_array ){
    %dbtags = ($word, $count);
    }                     ^--- NOT $occurence?
  2. or download this
    while (my ($word, $occurence) =
  3. or download this
    foreach $k (@sortkeys) {
  4. or download this
    foreach my $k (@sortekeys) {
  5. or download this
    sub DetermineFontSize ($)
sub DetermineFontSize
  6. or download this
    print <<EOT
print <<"EOT";