hi again,
sorry for not giving you the right solution to your script. But still, i believe these examples would be more beneficial to you and you can make necessary amendments easily.
For the Manipulating Files and Directories, you can refer to the following examples:
=============================================
Manipulating Directories :: Directory Access
=============================================
* If you want to change directories you can issue the chdir command:
chdir("/some/path") || die "Cannot chdir to /some/path ($!)";
* In order to glob a list, you can do it in either of these two ways:
@a =
@a = glob("/some/path/*.c");
This would create a list of all of the .c files in the /some/path directory. We could loop through a glob directly by:
if (-d "/some/path") {
$where = "/some/path";
} else {
$where = "/another/path";
}
while (defined($next = <$where/*.c>)) {
print "found a c file in $where directory named $name\n";
}
Notice the use of the -d check for a directory for its existence. Very powerful indeed.
=============================================
Manipulating Directories :: Directory Handles
=============================================
* Just like we can create file handles for our files, we can create directory handles for our directories!
* Using Directory Handles:
opendir(DIRHANDLE, "/some/path") || die "Cannot opendir /some/path: $!";
foreach $name (sort readdir(DIRHANDLE)) {
print "found file: $name\n";
}
closedir(DIRHANDLE);
This prints out a sorted directory listing. For an unsorted list, we could have simplified the loop construct:
while ($name = readdir(DIRHANDLE)) {
print "found file: $name\n";
}
Remember to close your directory handles!
more information available at:
http://vergil.chemistry.gatech.edu/resources/programming/perl-tutorial/filedir.htmlhope this helps too!
kind regards
yogeeraj
No person was ever honoured for what he received. Honour has been the reward for what he gave (clavin coolidge)
