John,
"John W. Krahn" <[EMAIL PROTECTED]> wrote:
[ Please do not top-post ]
anu p wrote:
> If you have some time to help me out ...
You should post your questions to the mailing list instead of individual
subscribers.
> I tried a similar example of recursive
[ Please do not top-post ]
anu p wrote:
> If you have some time to help me out ...
You should post your questions to the mailing list instead of individual
subscribers.
> I tried a similar example of recursive copy using File::Find, Copy.
> I tried to copy all files with extension
John W. Krahn wrote:
>
> UNTESTED:
>
> use File::Copy;
> use File::Basename;
> use File::Find;
>
> my $from_dir = 'A';
> my $to_dir = 'F';
>
> my %count;
> find sub {
> my ( $name, undef, $ext ) = fileparse $_, qr/\..*/;
> copy( $_, "$to_dir/$name" . ++$count{ $name } . $ext )
Perhap
Steve Jardine wrote:
> Hiya all,
Hello,
> Here's a sceneraio:
>
>
> I have a directory tree:
>
> A-
> |->B
> |->C
> -->D-
>->E
>
>
> In this directory tree I have possibly several same named files
> in different directories. What I want to do is to recursively
> copy all
PROTECTED]
Sent: Wednesday, August 16, 2006 1:46 PM
To: beginners@perl.org
Subject: Recursive Copy
In this directory tree I have possibly several same named files in
different directories. What I want to do is to
recursively copy all the files in the directory tree to a single
directory, say
Hiya all,
Here's a sceneraio:
I have a directory tree:
A-
|->B
|->C
-->D-
->E
In this directory tree I have possibly several same named files in different
directories. What I want to do is to
recursively copy all the files in th
Hello All,
I am currently developing a script on Perl 5.001 in Windows 2000 but
targeted for WIndows NT 4.0. I have scan through the list and seen the
answer on File::*. Unfortunately, the perl version I have does not have
the FIle::Path module (or is it?).
Here's the purpose of my script. Th
