Help for this page

Select Code to Download


  1. or download this
    # (1) in sub SearchFile:

...

if ($VERBOSE) { PRINT("SEARCHING: ", FormatPath($PATH)); }            
+   # original
printf " %-8dSEARCHING: %s\n", $TOTAL, FormatPath($PATH) if $VERBOSE; 
+   # replacement
  2. or download this
    use Const::Fast;

...
const my $DOT      => 46;
const my $QUESTION => 63;
# etc.