Sponsored Content
Full Discussion: compare 2 arrays in perl
Top Forums Shell Programming and Scripting compare 2 arrays in perl Post 302341264 by durden_tyler on Wednesday 5th of August 2009 11:31:22 AM
Old 08-05-2009
Quote:
Originally Posted by karla
...
This works good, I just want to print from which line (KB005 or the other) a given line comes from..
...
Code:
$
$ cat data.txt
KB0005 1019 T IFVATVPVI 0.691 PKC YES
KB0005 1036 T YFLQTSQQL 0.785 PKC YES
KB0005 1037 S FLQTSQQLK 0.585 DNAPK YES
KB0005 1045 S KQLESEGRS 0.669 PKC YES
KB0005 1045 S KQLESEGRS 0.880 unsp YES
KB204320 1019 T IFVATVPVI 0.699 PKC YES
KB204320 1036 T YFLQTSQQL 0.789 PKC YES
KB204320 1037 S FLQTSQQLK 0.589 DNAPK YES
KB204320 1045 S KQLESEGRS 0.880 unsp YES
$
$ cat testscr.pl
#!/usr/bin/perl -w
$prevname = "";
open (F,"data.txt") or die "Can't open data.txt: $!";
while (<F>) {
  chomp;
  ($name = $_) =~ s/(\w+) .*/$1/;
  ($elem = $_) =~ s/\w+ (.*)/$1/;
  if ($prevname eq "") {
    $arrnum = 1;
  } elsif ($name ne $prevname) {
    $arrnum = 2;
  }
  # assuming there are only 2 distinct names, hence 2 arrays
  if ($arrnum == 1) {
    push @a1, "$name:$elem";
  } elsif ($arrnum == 2) {
    push @a2, "$name:$elem";
  }
  $prevname = $name;
}
close (F) or die "Can't close data.txt: $!";
# the value is a tilde-delimited string of names for which the
# line occurs
foreach $item (@a1, @a2) {
  ($key = $item) =~ s/\w+:(.*)/$1/;
  ($val = $item) =~ s/(\w+):.*/$1/;
  $count{$key} .= "~".$val
}
foreach $item (keys %count) {
  ($x = $count{$item}) =~ s/[^~]//g;
  if ( $x eq "~~") {  # line occurred for both names
    next;
  } else {            # array element has the line followed by "~name"
    push @diff, "$item$count{$item}";
  }
}
@sorted = sort @diff;
foreach $el (@sorted) {
  ($name = $el) =~ s/.*~(\w+)/$1/;
  ($elem = $el) =~ s/(.*)~\w+/$1/;
  printf("%-10s => %s\n",$name,$elem);
}
$
$ perl testscr.pl
KB0005     => 1019 T IFVATVPVI 0.691 PKC YES
KB204320   => 1019 T IFVATVPVI 0.699 PKC YES
KB0005     => 1036 T YFLQTSQQL 0.785 PKC YES
KB204320   => 1036 T YFLQTSQQL 0.789 PKC YES
KB0005     => 1037 S FLQTSQQLK 0.585 DNAPK YES
KB204320   => 1037 S FLQTSQQLK 0.589 DNAPK YES
KB0005     => 1045 S KQLESEGRS 0.669 PKC YES
$
$

HTH,
tyler_durden
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Compare two arrays in sh or compare two fields

I want a soultion to compare two arrays in sh with an easy way.I want a solution to synchrose users between different AIX servers where no NIS is available. All users are meant to be same on all 10 servers. So the approach is to consider first server as master user repository and whatever the users... (0 Replies)
Discussion started by: rijeshpp
0 Replies

2. Shell Programming and Scripting

Perl - Compare 2 Arrays

Hi all, I have the following script where the contents of file1 and file2 would be something like this: file1: 56790,0,0,100998765 89756,0,0,100567876 867645,1,3,678777654 file2: 56790,0,0,100998765 65776,0,0,4766457890 +5896,0,0,675489876 What I then want to do is check if... (4 Replies)
Discussion started by: Donkey25
4 Replies

3. Shell Programming and Scripting

compare/match arrays

Hi there all, I am having a question. Is it posible to compare elements of 2 different arrays? For example I got Array 1 | Array 2 123_abc | 123_bcd 123_bcd | 234_bcd 234_abc | 567_abc 234_bcd | 123_abc than the match is 123_abc & 234_bcd and non of the others. So... (3 Replies)
Discussion started by: draco
3 Replies

4. Shell Programming and Scripting

Compare arrays in perl

Hello, Let's say that we have the two following arrays @array1= @array2= Is there any easy way to compare these two arrays and print the values that exist in array1 and not in array2 and the values that exist in array2 and not in array1? Regards, Chriss_58 (3 Replies)
Discussion started by: chriss_58
3 Replies

5. Shell Programming and Scripting

Compare arrays (perl)

Hi, my first post here! Description of my problem: I have one txt-file with six rows and each row contains seven numbers seperated with whitespaces. I want to: Compare one array with seven numbers with each row of numbers in the txt-file. I have managed to compare one array with... (6 Replies)
Discussion started by: mjoh
6 Replies

6. Shell Programming and Scripting

Perl Compare 2 Arrays

Hello, Consider the following 2 arrays: Array1 = qw(Fa0/0 Fa0/1 Fa0/2 Fa0/3); Array1 = qw(Fa0/1 Fa0/2 Fa0/3 Fa0/4); I want to compare the following 2 arrays as follows: Take specific action when elements of Array1 that doesn't exist in Array2 (in my example: Fa0/0). Take another... (4 Replies)
Discussion started by: ahmed_zaher
4 Replies

7. Shell Programming and Scripting

perl: compare two arrays

Hi friends, I want to compare two arrays and find matched one using perl? Also, I want to delete unmatched one. Plz suggest me solution (1 Reply)
Discussion started by: Renesh
1 Replies

8. Shell Programming and Scripting

Compare two arrays

Hi, I am trying to compare two lists that are held in two variables so I believe I need to access the array elements to compare these. I am using ksh 88 and the code I have tried is below: for file in ${origfilelist} do if ]] then print -- "File ${file}... (3 Replies)
Discussion started by: frodo61
3 Replies

9. Shell Programming and Scripting

Using Diff to compare 2 arrays

I have two arrays and they look like this: array=(`cat /local/mnt/*sys/*includes|grep -v NEW`) array2=(`cat /tmp/*sys.z |grep -v NEW`) I am trying to compare them but I need to use the diff -u command. I am not sure how to do this. I cannot just do diff -u ${array} ${array2} I cannot... (4 Replies)
Discussion started by: newbie2010
4 Replies

10. UNIX for Beginners Questions & Answers

Compare bash arrays issue

Hello everyone, I need help comparing 2 arrays. the first array is static; the second array is not .. array1=( "macOS Mojave" "iTunes" ) cd /Volumes array2=( * ) # output of array2 macOS Mojave iTunes Mac me The problem occurs when I compare the arrays with the following code - ... (6 Replies)
Discussion started by: trexthurman
6 Replies
INSQUE(3)						     Linux Programmer's Manual							 INSQUE(3)

NAME
insque, remque - insert/remove an item from a queue SYNOPSIS
#include <search.h> void insque(void *elem, void *prev); void remque(void *elem); Feature Test Macro Requirements for glibc (see feature_test_macros(7)): insque(), remque(): _SVID_SOURCE || _XOPEN_SOURCE >= 500 || _XOPEN_SOURCE && _XOPEN_SOURCE_EXTENDED DESCRIPTION
The insque() and remque() functions manipulate doubly-linked lists. Each element in the list is a structure of which the first two ele- ments are a forward and a backward pointer. The linked list may be linear (i.e., NULL forward pointer at the end of the list and NULL backward pointer at the start of the list) or circular. The insque() function inserts the element pointed to by elem immediately after the element pointed to by prev. If the list is linear, then the call insque(elem, NULL) can be used to insert the initial list element, and the call sets the forward and backward pointers of elem to NULL. If the list is circular, the caller should ensure that the forward and backward pointers of the first element are initialized to point to that element, and the prev argument of the insque() call should also point to the element. The remque() function removes the element pointed to by elem from the doubly-linked list. CONFORMING TO
POSIX.1-2001. NOTES
Traditionally (e.g., SunOS, Linux libc 4 and libc 5), the arguments of these functions were of type struct qelem *, defined as: struct qelem { struct qelem *q_forw; struct qelem *q_back; char q_data[1]; }; This is still what you will get if _GNU_SOURCE is defined before including <search.h>. The location of the prototypes for these functions differs among several versions of UNIX. The above is the POSIX version. Some systems place them in <string.h>. Linux libc4 and libc 5 placed them in <stdlib.h>. BUGS
In glibc 2.4 and earlier, it was not possible to specify prev as NULL. Consequently, to build a linear list, the caller had to build a list using an initial call that contained the first two elements of the list, with the forward and backward pointers in each element suit- ably initialized. EXAMPLE
The program below demonstrates the use of insque(). Here is an example run of the program: $ ./a.out -c a b c Traversing completed list: a b c That was a circular list Program source #include <stdio.h> #include <stdlib.h> #include <unistd.h> #include <search.h> struct element { struct element *forward; struct element *backward; char *name; }; static struct element * new_element(void) { struct element *e; e = malloc(sizeof(struct element)); if (e == NULL) { fprintf(stderr, "malloc() failed "); exit(EXIT_FAILURE); } return e; } int main(int argc, char *argv[]) { struct element *first, *elem, *prev; int circular, opt, errfnd; /* The "-c" command-line option can be used to specify that the list is circular */ errfnd = 0; circular = 0; while ((opt = getopt(argc, argv, "c")) != -1) { switch (opt) { case 'c': circular = 1; break; default: errfnd = 1; break; } } if (errfnd || optind >= argc) { fprintf(stderr, "Usage: %s [-c] string... ", argv[0]); exit(EXIT_FAILURE); } /* Create first element and place it in the linked list */ elem = new_element(); first = elem; elem->name = argv[optind]; if (circular) { elem->forward = elem; elem->backward = elem; insque(elem, elem); } else { insque(elem, NULL); } /* Add remaining command-line arguments as list elements */ while (++optind < argc) { prev = elem; elem = new_element(); elem->name = argv[optind]; insque(elem, prev); } /* Traverse the list from the start, printing element names */ printf("Traversing completed list: "); elem = first; do { printf(" %s ", elem->name); elem = elem->forward; } while (elem != NULL && elem != first); if (elem == first) printf("That was a circular list "); exit(EXIT_SUCCESS); } COLOPHON
This page is part of release 3.53 of the Linux man-pages project. A description of the project, and information about reporting bugs, can be found at http://www.kernel.org/doc/man-pages/. 2010-09-09 INSQUE(3)
All times are GMT -4. The time now is 06:15 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy