Help for this page

Select Code to Download


  1. or download this
    foreach my $folder (@folders)
{
...
    close (FILE);
  }
}
  2. or download this
        my $quotedfullelementpath = "\"" . $folderfullpath . "/" . $elemen
+t . "\"";
    my $singlefullelementpath = "'" . $folderfullpath . "/" . $element
+ . "'";
...
    print "-> " .$fullelementpath . " is ";
    print "NOT " unless (-T $fullelementpath);
    print "a text file\n";
  3. or download this
    -> "<shortened-path>/ra6535_5.ddl" is NOT a text file
-> '<shortened-path>/ra6535_5.ddl' is NOT a text file
...
-> "<shortened-path>/ra6536_6.ddl" is NOT a text file
-> '<shortened-path>/ra6536_6.ddl' is NOT a text file
-> <shortened-path>/ra6536_6.ddl is a text file