source: trunk/essentials/dev-lang/perl/NetWare/t/NWModify.pl

print "\nModifying the '.t' files...\n\n";

use File::Basename;
use File::Copy;

## Change the below line to the folder you want to process
$DirName = "/perl/scripts/t";

$FilesTotal = 0;
$FilesRead = 0;
$FilesModified = 0;

opendir(DIR, $DirName);
@Dirs = readdir(DIR);

foreach $DirItem(@Dirs)
{
        $DirItem = $DirName."/".$DirItem;
        push @DirNames, $DirItem;       # All items under  $DirName  folder is copied into an array.
}

foreach $FileName(@DirNames)
{
        if(-d $FileName)
        {       # If an item is a folder, then open it further.

                opendir(SUBDIR, $FileName);
                @SubDirs = readdir(SUBDIR);
                close(SUBDIR);

                foreach $SubFileName(@SubDirs)
                {
                        if(-f $SubFileName)
                        {
                                &Process_File($SubFileName);    # If file, process it.
                        }
                        else
                        {
                                $SubFileName = $FileName."/".$SubFileName;
                                push @DirNames, $SubFileName;   # If sub-folder, push it into the array.
                        }
                }
        }
        else
        {
                if(-f $FileName)
                {
                        &Process_File($FileName);       # If file, process it.
                }
        }
}

close(DIR);

print "\n\n\nTotal number of files present = $FilesTotal\n";