Compare files Post: 302110580

Sponsored Content

Top Forums UNIX for Advanced & Expert Users Compare files Post 302110580 by kharen11 on Tuesday 13th of March 2007 10:17:11 PM

03-13-2007

Registered User

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 && $#first_arr > 1 )
    }
    print "$key " if( $set == 1 )
  }
  print "\n";
}

close(FILE);

exit 0

Quote:

Verified two sources of input,

hopefully it should work properly now! Smilie

Give it a shot!

Sorry for not being up to the point in the beginning itself!

Its working fine but got one problem. I think I mentioned it on the thread that it's looking for a file pattern not the exact word. Please see below:

File1
AAABB370 MI_AP MI_RC MI_REC_DUP VIEW
AAABB371 VIEW
AAABB372 MI_UNIT VIEW
AAABB373 REQUEST APPROVE INQUIRE
AAABB374 REQUEST APPROVE MI_AP MI_RC MI_REC VIEW

File2
role1 MI_RC MI_REC
role2 MI_AP MI_REC
role3 VIEW
role4 VIEW MI_UNIT
role5 REQUEST APPROVE INQUIRE
role6 REQUEST

Code Output:
AAABB370 role1 role3 role2
AAABB371 role3
AAABB372 role3 role4
AAABB373 role6 role5
AAABB374 role1 role3 role6 role2

Needed Output:
AAABB370 role3 role2
AAABB371 role3
AAABB372 role3 role4
AAABB373 role6 role5
AAABB374 role3 role6 role2

Last edited by kharen11; 03-13-2007 at 11:56 PM..

kharen11

View Public Profile for kharen11

Find all posts by kharen11

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...

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

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. 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...

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...

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...

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...

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

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...

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: ...

LEARN ABOUT OSF1

stl_mi

stl_mi(4)						     Kernel Interfaces Manual							 stl_mi(4)

NAME

       stl_mi - Software distribution master inventory files

DESCRIPTION

       Each software product that is distributed as subsets for the setld(8) command has an associated master inventory file. The master inventory
       file's name consists of the product's unique 3-letter name and a 3-digit version number with the string .mi for a suffix. The master inven-
       tory file is used by the software kitting program kits(1) in producing software distribution packages.

       A  master  inventory  file  contains one ASCII record, describing vendor-specified attribute information, for each file in the product kit.
       Each record is composed of three fields which must be separated by TAB characters. The fields are: A 16-bit unsigned integer.

	      Bit 1 is the v (volatility) bit; when it is set, changes to the existing copy of the file can occur during kit installation.  It	is
	      usually  set for log files required by applications. The remaining bits are reserved. Possible values for this field are therefore 0
	      or 2.  The dot-relative (./) pathname of the file described by this record.  Each pathname must  appear  only  once  in  the  master
	      inventory file.  Pathnames must begin with a period (.). Records must be sorted in ascending ASCII sequence on this field.  The name
	      of the subset containing the file. Standard system directories are not included in subsets; they	are  represented  by  the  keyword
	      RESERVED	in  place of a subset name. Files that exist in the product hierarchy but are not distributed as part of any subset have a
	      minus sign (-) in this field. Files that share a gnode (links) must all be included in the same subset.

EXAMPLES

       This example shows a section of the master inventory for  a  hypothetical  layered  product  kit:  0	.	 RESERVED  0	 ./usr/opt
       RESERVED  0     ./usr/opt/OAT100       OATDCB100  0     ./usr/opt/OAT100/bin   OATDCB100  0     ./usr/opt/OAT100/bin/attr      OATDCB100  0
       ./usr/opt/OAT100/bin/dcb.spr   OATDCB100  0     ./usr/opt/OAT100/bin/dcb_defaults      OATDCB100   0	 ./usr/opt/OAT100/bin/dcb_diag.sed
       OATDCB100  0    ./usr/opt/OAT100/bin/docbld   OATDCB100 0    ./usr/opt/OAT100/bin/unstamp  OATDCB100 0	 ./usr/opt/OAT100/lib  OATDCB100 0
       ./usr/opt/OAT100/lib/br	      OATDCB100   0	 ./usr/opt/OAT100/lib/br/README.dcb	 OATDCB100   0	    ./usr/opt/OAT100/lib/br/attr.1
       OATDCBDOC100   0      ./usr/opt/OAT100/lib/br/dcb.ps	     OATDCBDOC100   0	   ./usr/opt/OAT100/lib/br/docbld.1	   OATDCBDOC100  0
       ./usr/opt/OAT100/lib/br/docbld.5      OATDCBDOC100 0    ./usr/opt/OAT100/lib/br/unstamp.1     OATDCBDOC100 0    ./usr/opt/OAT100/lib/doclib
       OATDCB100  0	./usr/opt/OAT100/lib/doclib/templates  OATDCB100  0	./usr/opt/OAT100/lib/doclib/templates/conv.braces     OATDCB100  0
       ./usr/opt/OAT100/lib/doclib/templates/conv.command   OATDCB100 .  .  .

RELATED INFORMATION

       invcutter(1), kits(1), newinv(1), setld(8) Guide to Preparing Product Kits delim off

																	 stl_mi(4)