logic problem

Please do not post your homework questions here. Let us know what you have tried so far and where you are facing problem, so that someone here can help you.

Hi all,

I have tried the following, I know the logic behind it, but i am unable to put it rightly using the Perl format. I have tried the following

#!/usr/bin/perl
open FILE, "z.txt" or die $!;
while (<FILE>) {
print $_;
}
mkdir("1", 0777) || print $!;
mkdir("2", 0777) || print $!;
mkdir("3", 0777) || print $!;
mkdir("4", 0777) || print $!;
mkdir("5", 0777) || print $!;
mkdir("6", 0777) || print $!;
mkdir("7", 0777) || print $!;
mkdir("8", 0777) || print $!;
print " -Done";

exit;

I am have all the new directories with respective names. I want to copy the file z.txt from dir z to the new dir 1 with file name 1.txt , dir 2 with file name 2.txt and so on...
How could I use the copy function here.
Looking forward to your response.

Regards,
Ramesh

perl has no copy function. You would use the File::Copy module or simply use the open() function to open and read the file and then use "print" to write it to the new directories.

This is not a logic problem. This is an excersize in learning basic file IO operations or possibly more specifically how to mkdir and copy files. Any perl book/tutorial that covers "File Access" or "File IO" should provide you more than enough information to accomplish this very simple task.