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 copy using File::Find, Copy.
> I tried to copy all files with extension ".c" to a directory. After
> the first file is copies, I start getting messages saying "No such
> file or directory". I am not sure where am I going wrong..
>
> The files are like this:
>
> perl -> a.c
> perl/b -> b.c
> perl/b/c -> c.c etc.
>
> Code:
>
> my $from_dir = "/home/anupamaperi/perl";
> my $to_dir = "temp";
"temp" is a relative directory. You need to use an absolute directory like
the one in $from_dir.
> my $found_count = 0;
>
> find (\©_file, $from_dir);
>
> sub copy_file {
> if (/\.c/) {
You need to anchor that pattern.
> print "$File::Find::name\n";
> $found_count++;
> copy ($File::Find::name, "$to_dir/$_") or warn "Cannot copy
> '$File::Find::name' $!";
> }
> }
>
> I ended up with temp/a.c but not b.c and c.c
Thanks for your reply, will not send any further individual mails.
Anu
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------
How low will we go? Check out Yahoo! Messengers low PC-to-Phone call rates.
