"John W. Krahn" wrote:
>
> You should probably use File::Find
>
> use warnings;
> use strict;
> use File::Find;
>
> my $rootdir = 'C:/Temp/Test';
> my @dirs;
>
> find( sub { -d and # is it a directory?
> !/^\.\.?$/ and # don't want . and .. directories
>
Jayashankar Nelamane Srinivasarao wrote:
>
> Hi All
Hello,
> Please tell me how to proceeed. I have been successfull with writing
> the script for going through the directory and executing a command.
>
> But I have tried in vain to modify this code to be able to
> recursively run the command t
on Fri, 21 Jun 2002 12:16:15 GMT, [EMAIL PROTECTED]
(Jayashankar Nelamane Srinivasarao) wrote:
> But I have tried in vain to modify this code to be able to
> recursively run the command through the whole sub-directories,
> whichever is there.
use File::Find;
--
felix
--
To unsubscribe,
I used this to recursively process a directory tree and upload the files
via ftp, you should be able to get what you need from it,
sub uploadfiles {
my($localpath, $remotepath) = @_;
(opendir(DIR, $localpath) && print "Processing the " .
$localpath . " directory\n") || (print "Fai
Hi All
Please tell me how to proceeed. I have been successfull with writing
the script for going through the directory and executing a command.
But I have tried in vain to modify this code to be able to
recursively run the command through the whole sub-directories, whichever is
there.
The follo