Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Compare files
Top Forums UNIX for Advanced & Expert Users Compare files Post 302110469 by matrixmadhan on Tuesday 13th of March 2007 07:15:27 AM
Old 03-13-2007
tested and it works fine! Smilie

Try this!

Code:
#! /opt/third-party/bin/perl

open(FILE, "<", secondfile) || die ("Unable to open secondfile. <$!>\n");

while( <FILE> ) {
  chomp;
  @split_arr = split(/ /, $_);
  my $dump;
  for( my $i = 1; $i <= $#split_arr; $i++ ) {
    $dump .= ( $split_arr[$i] . ":");
  }
  $dump =~ s/:$//;
  $fileHash{$split_arr[0]} = $dump;
}

close(FILE);

open(FILE, "<", firstfile) || die ("Unable to open firstfile. <$!>\n");

while( <FILE> ) {
  chomp;
  @first_arr = split(/ /, $_);
  print "$first_arr[0] ";
  foreach my $key ( keys %fileHash ) {
    @second_arr = split(/:/, $fileHash{$key});
    for($i = 0; $i <= $#second_arr; $i++ ) {
      $set = 0;
      for( $j = 1; $j <= $#first_arr; $j++ ) {
        if( $first_arr[$j] =~ $second_arr[$i] ) {
          $set = 1;
          last;
        }
      }
      last if( $set == 0 )
    }
    print "$key " if( $set == 1 )
  }
  print "\n";
}

close(FILE);

exit 0

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

compare two files

I have file1 and file2: file1: 11 xxx kksd ... 22 kkk kdsglg... 33 sss kdfjdksa... 44 kdsf dskjfkas ... hh kdkf kdkkd.. jg dkf dfkdk ... ... file2: jg 22 hh ... I need to check each line of file1. if the field one is in file2, I will keep it; if not, the whole line will be... (17 Replies)
Discussion started by: fredao
17 Replies

2. Shell Programming and Scripting

compare two files and to remove the matching lines on both the files

I have two files and need to compare the two files and to remove the matching lines from both the files (4 Replies)
Discussion started by: shellscripter
4 Replies

3. Shell Programming and Scripting

compare files in two directories and output changed files to third directory

I have searched about 30 threads, a load of Google pages and cannot find what I am looking for. I have some of the parts but not the whole. I cannot seem to get the puzzle fit together. I have three folders, two of which contain different versions of multiple files, dist/file1.php dist/file2.php... (4 Replies)
Discussion started by: bkeep
4 Replies

4. Shell Programming and Scripting

How to compare 2 files & get only few columns based on a condition related to both files?

Hiiiii friends I have 2 files which contains huge data & few lines of it are as shown below File1: b.dat(which has 21 columns) SSR 1976 8 12 13 10 44.00 39.0700 70.7800 7.0 0 0.00 0 2.78 0.00 0.00 0 0.00 2.78 0 NULL ISC 1976 8 12 22 32 37.39 36.2942 70.7338... (6 Replies)
Discussion started by: reva
6 Replies

5. Shell Programming and Scripting

Compare 2 folders to find several missing files among huge amounts of files.

Hi, all: I've got two folders, say, "folder1" and "folder2". Under each, there are thousands of files. It's quite obvious that there are some files missing in each. I just would like to find them. I believe this can be done by "diff" command. However, if I change the above question a... (1 Reply)
Discussion started by: jiapei100
1 Replies

6. Shell Programming and Scripting

Require compare command to compare 4 files

I have four files, I need to compare these files together. As such i know "sdiff and comm" commands but these commands compare 2 files together. If I use sdiff command then i have to compare each file with other which will increase the codes. Please suggest if you know some commands whcih can... (6 Replies)
Discussion started by: nehashine
6 Replies

7. Shell Programming and Scripting

Compare files

Please help me with awk.I have two files with the below details file1 123456789 2012 987654321 2011 a1234567892012 a1234abcde2012 b1234567892012 c1234567892012 98765a12342012 file2 a1234 01234 b1234 33333 I need to check whether the items in file2 is present in file1 .If it is... (2 Replies)
Discussion started by: Mary James
2 Replies

8. Shell Programming and Scripting

Compare two files, then overwrite first file with only that in both files

I want to compare two files, and search for items that are in both. Then override the first file with that containing only elements which were in both files. I imagine something with diff, but not sure. File 1 One Two Three Four Five File 2 One Three Four Six Eight (2 Replies)
Discussion started by: castrojc
2 Replies

9. Shell Programming and Scripting

Compare multiple files, and extract items that are common to ALL files only

I have this code awk 'NR==FNR{a=$1;next} a' file1 file2 which does what I need it to do, but for only two files. I want to make it so that I can have multiple files (for example 30) and the code will return only the items that are in every single one of those files and ignore the ones... (7 Replies)
Discussion started by: castrojc
7 Replies

10. Shell Programming and Scripting

Compare files and share output from both files

hi all, Thanks to all for your great help... I have a scenario that I have two files (file1 & file2). I need to compare two files entire row by row and share the output if any discrepancies within two files. File1: DB1|TB1|C1,C3 DB2|TB2|C1,C2 DB3|TB3|C1,C2,C3,C4 File2: ... (2 Replies)
Discussion started by: Selva_2507
2 Replies

LEARN ABOUT MOJAVE

sys::hostname::long5.18

Sys::Hostname::Long(3)					User Contributed Perl Documentation				    Sys::Hostname::Long(3)

NAME

       Sys::Hostname::Long - Try every conceivable way to get full hostname

SYNOPSIS

	   use Sys::Hostname::Long;
	   $host_long = hostname_long;

DESCRIPTION

       How to get the host full name in perl on multiple operating systems (mac, windows, unix* etc)

DISCUSSION

       This is the SECOND release of this code. It has an improved set of tests and improved interfaces - but it is still often failing to get a
       full host name.	This of course is the reason I wrote the module, it is difficult to get full host names accurately on each system. On some
       systems (eg: Linux) it is dependent on the order of the entries in /etc/hosts.

       To make it easier to test I have testall.pl to generate an output list of all methods. Thus even if the logic is incorrect, it may be
       possible to get the full name.

       Attempt via many methods to get the systems full name. The Sys::Hostname class is the best and standard way to get the system hostname.
       However it is missing the long hostname.

       Special thanks to David Sundstrom and Greg Bacon for the original Sys::Hostname

SUPPORT

       This is the original list of platforms tested.

	       MacOS	       Macintosh Classic	       OK
	       Win32	       MS Windows (95,98,nt,2000...)
			       98			       OK
	       MacOS X	       Macintosh 10		       OK
			       (other darwin)		       Probably OK (not tested)
	       Linux	       Linux UNIX OS		       OK
			       Sparc			       OK
	       HPUX	       H.P. Unix 10?		       Not Tested
	       Solaris	       SUN Solaris 7?		       OK (now)
	       Irix	       SGI Irix 5?		       Not Tested
	       FreeBSD	       FreeBSD			       OK

       A new list has now been compiled of all the operating systems so that I can individually keep informaiton on their success.

       THIS IS IN NEED OF AN UPDATE AFTER NEXT RELEASE.

       Acorn - Not yet tested
       AIX - Not yet tested
       Amiga - Not yet tested
       Atari - Not yet tested
       AtheOS - Not yet tested
       BeOS - Not yet tested
       BSD - Not yet tested
       BSD/OS - Not yet tested
       Compaq - Not yet tested
       Cygwin - Not yet tested
       Concurrent - Not yet tested
       DG/UX - Not yet tested
       Digital - Not yet tested
       DEC OSF/1 - Not yet tested
       Digital UNIX - Not yet tested
       DYNIX/ptx - Not yet tested
       EPOC - Not yet tested
       FreeBSD - Not yet tested
       Fujitsu-Siemens - Not yet tested
       Guardian - Not yet tested
       HP - Not yet tested
       HP-UX - Not yet tested
       IBM - Not yet tested
       IRIX - Not yet tested - 3rd hand information might be ok.
       Japanese - Not yet tested
       JPerl - Not yet tested
       Linux
	   Debian - Not yet tested
	   Gentoo - Not yet tested
	   Mandrake - Not yet tested
	   Red Hat- Not yet tested
	   Slackware - Not yet tested
	   SuSe - Not yet tested
	   Yellowdog - Not yet tested
       LynxOS - Not yet tested
       Mac OS - Not yet tested
       Mac OS X - OK 20040315 (v1.1)
       MachTen - Not yet tested
       Minix - Not yet tested
       MinGW - Not yet tested
       MiNT - Not yet tested
       MPE/iX - Not yet tested
       MS-DOS - Not yet tested
       MVS - Not yet tested
       NetBSD - Not yet tested
       NetWare - Not yet tested
       NEWS-OS - Not yet tested
       NextStep - Not yet tested
       Novell - Not yet tested
       NonStop - Not yet tested
       NonStop-UX - Not yet tested
       OpenBSD - Not yet tested
       ODT - Not yet tested
       OpenVMS - Not yet tested
       Open UNIX - Not yet tested
       OS/2 - Not yet tested
       OS/390 - Not yet tested
       OS/400 - Not yet tested
       OSF/1 - Not yet tested
       OSR - Not yet tested
       Plan 9 - Not yet tested
       Pocket PC - Not yet tested
       PowerMAX - Not yet tested
       Psion - Not yet tested
       QNX
	   4 - Not yet tested
	   6 (Neutrino) - Not yet tested
       Reliant UNIX - Not yet tested
       RISCOS - Not yet tested
       SCO - Not yet tested
       SGI - Not yet tested
       Symbian - Not yet tested
       Sequent - Not yet tested
       Siemens - Not yet tested
       SINIX - Not yet tested
       Solaris - Not yet tested
       SONY - Not yet tested
       Sun - Not yet tested
       Stratus - Not yet tested
       Tandem - Not yet tested
       Tru64 - Not yet tested
       Ultrix - Not yet tested
       UNIX - Not yet tested
       U/WIN - Not yet tested
       Unixware - Not yet tested
       VMS - Not yet tested
       VOS - Not yet tested
       Windows
	   CE - Not yet tested
	   3.1 - Not yet tested
	   95 - Not yet tested
	   98 - Not yet tested
	   Me - Not yet tested
	   NT - Not yet tested
	   2000 - Not yet tested
	   XP - Not yet tested
       z/OS - Not yet tested

KNOWN LIMITATIONS

   Unix
       Most unix systems have trouble working out the fully quallified domain name as it to be configured somewhere in the system correctly. For
       example in most linux systems (debian, ?) the fully qualified name should be the first entry next to the ip number in /etc/hosts

	       192.168.0.1     fred.somwhere.special   fred

       If it is the other way around, it will fail.

   Mac
TODO

       Contributions

	       David Dick
	       Graeme Hart
	       Piotr Klaban

	       * Extra code from G
	       * Dispatch table
	       * List of all operating systems.

       Solaris	    * Fall back 2 - TCP with DNS works ok      * Also can read /etc/defaultdomain file

SEE ALSO

	       L<Sys::Hostname>

AUTHOR

       Scott Penrose <scottp@dd.com.au>

COPYRIGHT

       Copyright (c) 2001,2004,2005 Scott Penrose. All rights reserved.  This program is free software; you can redistribute it and/or modify it
       under the same terms as Perl itself.

perl v5.18.2							    2005-06-25						    Sys::Hostname::Long(3)
All times are GMT -4. The time now is 04:51 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy