|
#!/usr/bin/perl print "Content-type:text/html\n\n"; $filename = "."; opendir(flist,"$filename"); @allf = readdir flist; closedir(flist); @allf = sort @allf; print "<pre><font face=fixedsys>"; for $i (0 .. @allf) { if (length($allf[$i]) > "4") { print "<b>$allf[$i]</b>\n"; open(myfile,"$allf[$i]"); @getrec = <myfile>; close(myfile); foreach $r (@getrec) { $r =~ s/</</g; $r =~ s/>/>/g; $r =~ s/"/"/g; print $r; } } } |