Re: copy script

[kiruthika.bkite]

use File::Find;
my $command="cp";
my $target="/home/kiruthika/Technical/NEW/"; #Here mention your direct
+ory path to where you need to copy the files.
my $str;
find(\&wanted,(".","..",));
sub wanted()
{

    if(/.*\.txt/)#find the .txt files and copy those into another loca
+tion.
    {
         $str=$command." ".$_." " .$target;
         system("$str");
         $str=" ";

    }
}

find() function will call the wanted function for each files in the current directory and as well in the parent directory of the current directory.

In the wanted function I have checked whether the file is .txt file or not.
If it is .txt file then I have copied that file into the target directory.

In find() function ,in the second argument you mention the directories to be searched.

[marto]

So you are assuming the cp command is available, calling it via system, you're also assuming that the copy has worked and not bothered to check for errors?. Why not use File::Copy (it's core and portable) and actually check that no error was returned?