Copy function doesnt seem to work

[supriyamk]

Hi,
i am trying to copy files of a certain type into a different directory using perl,
The copy function doesnt seem to work.

my @dir_list;
          my $sub_dir;
          my $file_name1;
          my $file_name2;
      my @file_list_gel;       
          my @file_list_res;
#--------------LINE21
      opendir(aDIR, $dir_root);
      @dir_list = grep !/^\.\.?$/, readdir aDIR;
          closedir(aDIR); 
    # if .gel or .res file is found in the current directory make a copy in respective folder
        foreach $sub_dir(@dir_list)
        {    
        # make subdirectories in TS and results folder                 
                 mkdir "$dir_dest_gel\\$sub_dir" or die $!;
         mkdir "$dir_dest_res\\$sub_dir" or die $!; 
#------------Line 31
        print"Sub directory :$sub_dir\n";
 
        opendir(DIR, "$dir_root\\$sub_dir");
                while ($_ = readdir(DIR))
        {
            if($_ =~ /\.gel/)
                        { 
                print"File name: $_\n";
                print"Dest Dir: $dir_dest_gel\\$sub_dir";
                             copy("$_", "$dir_dest_gel\\$sub_dir\\$_") or die $!;
                     }
             if($_ =~ /\.res/)
                     { 
                          copy("$_", "$dir_dest_res\\$sub_dir\\$_") or die $!;
                     }
        }               
                closedir(DIR);
     }
 

it is printing the file name and destination directory correctly,
but copy function is not copying the file

[KevinADC]

You hopefully just need to use chomp:

opendir(DIR, "$dir_root\\$sub_dir");
while ($_ = readdir(DIR))
{
chomp;
if($_ =~ /\.gel/)
{ 
.....

[supriyamk]

i just changed the code from copy to system(copy) and it works, so i guess i am not using perl's copy function correctly

[KevinADC]

Perl has no copy() function. I assume you loaded the File::Copy module?

[numberwhun]

i just changed the code from copy to system(copy) and it works, so i guess i am not using perl's copy function correctly

For your reference, here is a list of Perl's built-in functions. You will find that, as Kevin said, there is no copy function. If you installed and used a module, then you have to use its functions in its prescribed manner, per its CPAN documentation page.

Regards,

Jeff