system : windows 7

i search for file::tiny in ppm but not found

my logic:

use strict;
use warnings;
use File::Copy;

my @test1;
my @test2;
print "Enter the file path form where you want to copy file:\n";
chomp(my $path1 = <STDIN>);
opendir DH, "$path1" || die "$!";
@test1 = readdir (DH);

    print "@test1\n";
    

print "Enter the file path form where you want to copy file:\n";
chomp(my $path2 = <STDIN>);
opendir DH, "$path2" || die "$!";
@test2 = readdir (DH);

    print "@test2\n";
    

my $count = @test1;
my $count2 = @test2;
my $x = 0;
for ($x = 0; $x<$count2; $x++)
{
    if($test1[$x] ne $test2[$x])
        {
            
        print "$test1[$x] : $test2[$x]\n";
        
#        copy("$test1[$x]", "$path2") or warn "cannot copy $test1[$x]"
+;
#        copy("$test2[$x]", "$path1")or warn "cannot copy $test2[$x]";
+;
        
        }
    
    
}
[download]

If you just want a list of the files in a directory then it's easier to just use glob

Also note that the files in a directory are not ordered, so any list will be in a random order unless you sort it.

Your code could then look something like this :-

   use File::Basename;

   my @files = glob('/path/to/files/*');
   foreach my $file (@files) {
       my $name = basename($file);
       if (! -x "/new_path/$name") {
          # copy file here
       }
    }
[download]

Have a look at the help for File::Basename or better yet File::Spec for functions to safely handle paths & filenames

"i search for file::tiny in ppm but not found"

That's not exactly surprising. In the prior discussion Anonymonk and choroba both mentioned Path::Tiny; you said you were trying to use File::Copy. PPM doesn't know about "file::tiny" because -- if it exists -- it's not on CPAN, or any other standard source.


Questions containing the words "doesn't work" (or their moral equivalent) will usually get a downvote from me unless accompanied by:

1. code
2. verbatim error and/or warning messages
3. a coherent explanation of what "doesn't work actually means.

check Ln42!