#!/usr/local/bin/perl $pages = 2; # maximum 64 for ($j = 0 ; $j < $pages ; $j += 1 ) { open (OUTFILE, ">/home/d/b/dbaron/public_html/www/i18n/ents/ents$j.html"); print OUTFILE "\n"; print OUTFILE "\n"; print OUTFILE "Character Entities Test\n"; print OUTFILE "\n"; print OUTFILE "\n"; print OUTFILE "

Character Entities Test

\n"; print OUTFILE "\n"; print OUTFILE ""; for ($i=0 ; $i < 1024 ; $i++ ) { $k = 1024 * $j + $i; print OUTFILE "
Number<\/td>Decimal<\/td>Uppercase<\/td>Lowercase<\/td>
$k<\/td>&#$k;<\/td>&#$k;<\/td>&#$k;<\/td><\/tr>\n"; } print OUTFILE "<\/table>\n"; print OUTFILE "
\n"; print OUTFILE "
LDB,\n"; print OUTFILE "dbaron\@fas.harvard.edu\n"; print OUTFILE "\n"; close(OUTFILE); }