#!/usr/local/bin/perl use strict; @filename; $i = 0; $total; open(INFILE,"dir.dat"); while($filename[$i] = ){ chop($filename[$i]); $filename[$i] =~ s/\*//g; $i++; $total++; } $error = open(OUTFILE,"> dict.html"); if(!$error){ print("ERROR\n"); exit(0); } print(OUTFILE "\n \n \n \n"); for($i=0;$i<=$total;$i++){ print(OUTFILE "$filename[$i]
\n"); } print(OUTFILE "\n\n"); close(OUTFILE);