#!/usr/bin/perl
use warnings;
use strict;

use Path::Tiny;


setup();
# This is the solution:
for my $file (path('test1')->children) {
    $file->copy('test2') unless path('test2/' . $file->basename)->exis
+ts;
}


sub setup {
    my %structure = (
                     test1 => [qw( abc.txt xyz.txt         )],
                     test2 => [qw( abc.txt sdf.txt fgh.txt )],
                    );

    my $i = 0;
    for my $dir (keys %structure) {
        for my $file (@{ $structure{$dir} }) {
            path("$dir/$file")->touchpath->spew($i++);
        }
    }
}
[download]

Update: you might need to run the loop twice (with a small modification) to copy files from test2 to test1 if it's desired as well.

can you do it without oop!

Sure I can, but why?
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Before responding. I'd just like to make sure I'm following you correctly.
It sounds like you have 2 directories, each with different files. Except the file "abc.txt", which is located in both directories. Is that correct?

Best wishes.

--Chris

your guess is right so i want that make both dir similar as per the file. but abc.txt content in both dir is different. can you do it without opp.

Welcome, see The Perl Monks Guide to the Monastery