#!/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/highest_ents$j.html"); print OUTFILE "\n"; print OUTFILE "
\n"; print OUTFILE "\n";
print OUTFILE "\n";
for ($i=0 ; $i < 1024 ; $i++ ) {
$k = 1024 * $j + $i;
print OUTFILE "$k:$k;\n";
}
print OUTFILE "<\/span><\/p>\n";
print OUTFILE "
\n";
print OUTFILE "
LDB,\n";
print OUTFILE "dbaron\@fas.harvard.edu\n";
print OUTFILE "\n";
close(OUTFILE);
}