#!/usr/bin/perl

sub seen_files {
        $filename=shift;
        @seenfld=split(" ",$seen{$filename});
        for($k=1;$k<=$#seenfld;$k++){
                @res=grep(/$seenfld[$k]/,@old_array);
                unless (scalar @res > 0 ) {
                        #print "FILENAME - $seenfld[$k]\n";
                        system("find /data -name $seenfld[$k]");
                        @old_array=(@old_array,$seenfld[$k]);
                }
        }
}
($file1,$file2)=($ARGV[0],$ARGV[1]);
open (FH1,"<","$file1") or die "Fail- $!\n";
open (FH2,"<","$file2") or die "Fail- $!\n";


open (FW,">","file2_new") or die "Fail- $!\n";
while (<FH2>) {
        chomp;
         s/(\~[Nn]ull|\~$)//g;
        if(!/^\//) {$_="/".$_;s/\~/\//g;}
        print FW $_,"\n";
        if(/^\//) {
                @flds=split(/\//);
                $filename=$flds[$#flds];
                if($filename=~/(.+?)[\.~]/) { $filename=$1;} #print $filename,"\n"; }
                $lookup{$filename}++;
        }
}

print "-------------------------------------------\n\n";
print "file2 newly created with name file2_new in current directory\n";
print "-------------------------------------------\n\n";
open (FH3,"<","$file1") or die "Fail- $!\n";
while (<FH3>) {
        chomp;
        if(/^(.+?):/) {
                @fld=split(/,/,substr($_,index($_,":")+1));
                while (<@fld>) {
                        @fld_new=(@fld_new,((split(/\~/))[1]));
                }
                $seen{$1}="@fld_new";
        }
}
while (<FH1>) {
chomp;
if(/^(.+?):/) {
        $fname=((split(/\~/,$1))[1]);
        if ( exists $lookup{$fname}) {
                @flds=split(/,/,substr($_,index($_,":")+1));
                while (<@flds>) {
                        @flds_new=(@flds_new,((split(/\~/))[1]));
                }

                for($i=0;$i<=$#flds_new;$i++) {
                @res=grep(/$flds_new[$i]/,@old_array);
                unless (scalar @res > 0 ) {
                        #print "FILENAME - $flds_new[$i]\n";
                        system("find /data -name $flds_new[$i]");
                        @old_array=(@old_array,$flds_new[$i]);
                        if (exists $seen{$flds_new[$i]} &&  $i > 0 ) {
                                seen_files($flds_new[$i]);
                                @seenfld_old=@seenfld;
                                for($p=1;$p<=$#seenfld_old;$p++){seen_files($seenfld_old[$p]);}
                        }
                        }
                   }
           }

        }
}
close(FH1);
close(FH2);
close(FH3);
close(FW);