Perl Guru…. I need to compare two diff file (file1.abc will locate in current server and file2.abc will locate in remote server), basically the script will look for match in both file and only will send out email if there is no match and also give me list of unmatch and dups as well. So here is the logic how the script will work. The script will reside in Server1. Server 1 has 13 different files like: file1.abc …………..>compare with remote server (server 2) file2.abc file1.bcd…………..>compare with remote server (server 3) file2.abc file1.dfg …………..>compare with remote server (server 4) file2.abc file1.ghi…………..>compare with remote server (server 5) file2.abc file1.ijk…………..>compare with remote server (server 6) file2.abc file1.klm…………..>compare with remote server (server 7) file2.abc file1.mno…………..>compare with remote server (server 8) file2.abc file1.opq…………..>compare with remote server (server 9) file2.abc file1.qrs…………..>compare with remote server (server 10) file2.abc file1.stu…………..>compare with remote server (server 11) file2.abc file1.uvw …………..>compare with remote server (server 12) file2.abc file1.wxy…………..>compare with remote server (server 13) file2.abc file1.yza…………..>compare with remote server (server 14) file2.abc (The file names before extension are the same in Server1, but all filename are same in remote servers) Now I need to compare file1.abc with remote server (Server 2) filename (file2.abc) (/xxx/xyx/mns/file2.abc). The script need to compare only with component name In this example sunsoloaris, hpunix, linux. All of the file has same format in both file types. Format is like the following: file1.abc format: Fsdfsdf kkldfsd Component sunsolaris Sdfsdfs dfdsfds Sdfsdf sdfsdf Sdfsdf ertyertre Sdfsdf hfdghdfgd Fsdfsdf kkldfsd Component hpunix Sdfsdfs dfdsfds Sdfsdf sdfsdf Sdfsdf ertyertre Sdfsdf hfdghdfgd Fsdfsdf kkldfsd Component linux Sdfsdfs dfdsfds Sdfsdf sdfsdf Sdfsdf ertyertre Sdfsdf hfdghdfgd Following is file2.abc (Remote server – server 2) Fsdfsdf kkldfsd Component sunsolaris Sdfsdfs dfdsfds Sdfsdf sdfsdf Sdfsdf ertyertre Sdfsdf hfdghdfgd Fsdfsdf kkldfsd Component winxp Sdfsdfs dfdsfds Sdfsdf sdfsdf Sdfsdf ertyertre Sdfsdf hfdghdfgd Fsdfsdf kkldfsd Component hpunix Sdfsdfs dfdsfds Sdfsdf sdfsdf Sdfsdf ertyertre Sdfsdf hfdghdfgd Fsdfsdf kkldfsd Component winxp Sdfsdfs dfdsfds Sdfsdf sdfsdf Sdfsdf ertyertre Sdfsdf hfdghdfgd Output will be in an email: (If exact match of Component found don’t send email.) If exact match of Component not found send email. E-mail should indicate: Component linux not found in file2.abc in remote server (server 2) Multiple entries of Component winxp found in file2.abc in remote server (server 2) To get date from remote server login and passwd will be required. Thanks.

I'm one of the few Perl programmers here, so I guess I'm the resident "Perl Guru". I'd be happy to assist you with your script, but I'm not interested in doing the whole script for you. Have you starting working on the script? If so, post your code and specific question(s) on the part(s) that's giving you problems.

BTW, do you also use the username ricky007? That user has almost the exact same request, which would indicate that either you are ricky007 or that you both are taking the same Perl programming class.

No, I am not ricky007. I did not find exact same request. Was it resolved? I am thinking how do I do it. I just need some guide. Thanks.

What determines that file1.abc needs to be compared with file2.abc on server2 and not server3 or server4? What connection method do you use between the servers; NFS mount, telnet, ftp, ssh? 1) Build an array or hash of the file names on Server1. 2) As you loop through that array/hash open the file and build a hash of the component names. The value of each hash key could be a counter. 3) Within each of those loops, access/open the remote file and increment the counter in the "component" hash for each component found in the remote file. 4) Loop through the component hash and any value that's greater than 1 tells you that it's in both files. I've left out a lot of details, but that should get you started.

Thank you very much, I am still struggling. Please see below what I got so far: Q. What determines that file1.abc needs to be compared with file2.abc on server2 and not server3 or server4? What connection method do you use between the servers; NFS mount, telnet, ftp, ssh? A. I have to hardcode file1.abc needs to be compared with file2.abc server2 and so on..... That is a direct relationship, it will not go to any other server. Connection method will be ssh. 1) Build an array or hash of the file names on Server1. #Building arrays for filenames of server1 @server1_files = ( ‘file1.abc’, ‘file1.bcd’, ‘file1.dfg’, ‘file1.ghi’, ‘file1.ijk’, ‘file1.klm’, ‘file1.mno’, ‘file1.opq’, ‘file1.qrs, ‘file1.stu’, ‘file1.uvw’, ‘file1.wxy’, ‘fle1.yza’); 2) As you loop through that array/hash open the file and build a hash of the component names. The value of each hash key could be a counter. while ( my @server1_files = <file1.*> ) { my %components_names; open(FILE, @server1_files) || die $!; while (<FILE>) { chomp; $components_names{$_}++; # create hash } foreach my $components_names (keys % components_names) { if ($components_names {$ components_names } > 1) { print "$ server1_files duplicated values: $components_names \n"; } } }

Since you need to hard code the file to server relations, server1_files should be a hash instead of an array. %server1_files = ( ‘file1.abc’ => 'server2', ‘file1.bcd’ => 'server3', ‘file1.dfg’ => 'server4', ‘file1.ghi’ => 'server5', ‘file1.ijk’ => 'server6', ‘file1.klm’ => 'server7', ‘file1.mno’ => 'server8', ‘file1.opq’ => 'server9', ‘file1.qrs' => 'server10', ‘file1.stu’ => 'server11', ‘file1.uvw’ => 'server12', ‘file1.wxy’ => 'server13', ‘file1.yza’ => 'server14', ); foreach my $file ( keys %server1_files ) { my %components; open my $FILE, '<', $file or die $!; while ( my line = <$FILE> ) { chomp $line; next unless $line =~ /Component (.*)/; $components{$1}++; } close $FILE; # I'm skipping the needed ssh code # Now, you need to open the remote file # and do another while loop like before. # I'd probably look into using File::Remote # to access the other files, which handles # the ssh stuff in the background } http://search.cpan.org/~nwiger/File... BTW, please wrap your code in the html pre tags so that the code indentation is preserved.