Help for this page

Select Code to Download


  1. or download this
    $outputFile = "fulltoc.htm";
open(OUT, ">",$outputFile) or die "couldn't open outputfile: $!";
...
print ("<HTML><HEAD><TITLE>");
print ("Detailed Table of Contents\n");
print ("</TITLE></HEAD><BODY>\n");
  2. or download this
    $outputFile = "fulltoc.htm";
open(OUT, ">",$outputFile) or die "couldn't open outputfile: $!";
print OUT "<HTML><HEAD><TITLE>"
        . "Detailed Table of Contents\n"
        . "</TITLE></HEAD><BODY>\n";
  3. or download this
    print STDOUT "$file\n";
  4. or download this
    next if $file =~ m/^\.htm$/i;   
next unless $file =~ m/\.htm$/i;  # not this?