Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
    print LOGFILE "$dir/$file deleted\n";
    }
}
  2. or download this
    foreach $file (readdir D)
{
...
    }
    # else it worked ###
}