Following is another code using loop. But I have some problem in the
loop as the file is copied to all my directories and it is unable to
copy the z.txt to the subdirectories. eg: /abc/FD, pqt/FD, /sde/FD.



#!\usr\bin\perl
use warnings;
mkdir("F:/usr/eg/abc", 0777) || print $!;
mkdir("F:/usr/eg/abc/FD", 0777) || print $!;
mkdir("F:/usr/eg/pqt", 0777) || print $!;
mkdir("F:/usr/eg/pqt/FD", 0777) || print $!;
mkdir("F:/usr/eg/sde", 0777) || print $!;
mkdir("F:/usr/eg/sde/FD", 0777) || print $!;
print "Enter the file to copy: ";
$fl = <>;
chomp($fl);
use File::Copy;
opendir DIR, "."; # . is the current directory

while ( $filename = readdir(DIR) )
{
if(-d $filename && $filename ne'.' && $filename ne '.')
{
print "copied $fl to: " , $filename,"\n";
copy($fl,$filename);
}
}
rename('F:/usr/eg/abc/FD/z.txt','F:/usr/eg/abc/FD/abc.txt');
rename('F:/usr/eg/pqt/FD/z.txt','F:/usr/eg/pqt/FD/pqt.txt');
rename('F:/usr/eg/sde/FD/z.txt','F:/usr/eg/sde/FD/sde.txt');

--- In perl-beginner@yahoogroups.com, "ramesh.govinda"
<ramesh.govinda@...> wrote:
>
> Hello All,
>
> I have a small query about this code. I had earlier asked you this
> problem, but that time I had mentioned the directories in terms of
> number s and so it was easier to use foreach loop. But now i need to
> create directories which is a mixture of variables and number and then
> I need to copy the file and give the respective folder name to the file.
>
> Could anyone let me know if I could go for loop for this code
>
> #!\usr\bin\perl
> use warnings;
> mkdir("F:/usr/eg/abc", 0777) || print $!;
> mkdir("F:/usr/eg/abc/FD", 0777) || print $!;
> mkdir("F:/usr/eg/pqt", 0777) || print $!;
> mkdir("F:/usr/eg/pqt/FD", 0777) || print $!;
> mkdir("F:/usr/eg/sde", 0777) || print $!;
> mkdir("F:/usr/eg/sde/FD", 0777) || print $!;
> print "Enter the file to copy: ";
> $fl = <>;
> chomp($fl);
> use File::Copy;
> copy('F:/usr/eg/z/z.txt','F:/usr/eg/abc/FD');
> rename('F:/usr/eg/abc/FD/z.txt','F:/usr/eg/abc/FD/abc.txt');
> copy('F:/usr/eg/z/z.txt','F:/usr/eg/pqt/FD');
> rename('F:/usr/eg/pqt/FD/z.txt','F:/usr/eg/pqt/FD/pqt.txt');
> copy('F:/usr/eg/z/z.txt','F:/usr/eg/sde/FD');
> rename('F:/usr/eg/sde/FD/z.txt','F:/usr/eg/sde/FD/sde.txt');
>
> Regards,
> Ramesh
>