UNIX for Dummies Questions & Answers

Hi
I am new to this forum.I need a help in the following:
We receve pipe delimited file with
transaction ID,tran_date,Quest_cd,Ans_cd,ans_value.
Same transaction ID can be repeated with different quest_cd and ans_cd.

Basically I need to check if a perticular pair of quest_cd and ans_cd (say Q1234,A1234) is present under a transaction ,then another pair of quest_cd and ans_cd (say Q5678,A5678) should also be present.

Otherwise I need to remove the isolated row from input file and write to a bad file which should have the complete row in defect and with a comment that Q1234A1234 present but Q5678A5678 not present Or vice versa.

The balance good records sholud be written to a good file.

I hope I am clear in my explanation.As this is VERY urgent I appreciate immediate help
Regards
SRK

Code:

As this is VERY urgent I appreciate immediate help

This is not appreciated.

Just a few pointers to help you

Code:

awk -F"," '{ if ( ( $3 == "Q1234 ) && ( $4 == "A1234" ) ) { print > "good.file" } else { print > "bad.file" } }' inputfile

Had you provided a snippet of the input file, it would have been even more helpful to you !

Hi
Thanks for the repsonse . Your code looks at one line only for the Q/A pair but I need to look at two consecutive lines as below.(The file is a sorted file sorted on Tran Id)
AS per your suggestion I am giving few lines of my file:
991320070521330000000003|Q13251|A18741|234567890123456
671320070521330000000003|Q13251|A18741|456787654328977
671320070521330000000003|Q13260|A18765|4567890987654321234
471320070521330000000003|Q13260|A18765|2345678901234561

In the above the two lines with transaction ID 671320070521330000000003 should be written to a good file as they are having both pairs of Q/A and the other should be written to bad file with comments like below:

991320070521330000000003|Q13251|A18741|234567890123456 --> ONLY Driver's Licence is present Credit card number missing
471320070521330000000003|Q13260|A18765|2345678901234561 --> ONLY Credit card number is present Driver's Licence missing

Once again thanks for your help.
Regards
SRK

Am sorry I don't understand your requirement really


How do you say the tran id 671... should be written to good file, is there any selection condition for that ?

Because on all the 4 lines I could see Q/A pair.

Sorry about that, could you please explain a bit ?

Hi
I am sorry for the confusion.The reason why the two lines with transaction id 671320070521330000000003 should be written to a good file is that they are having both the Q/A pairs ie.Q13251|A18741 and Q13260|A18765 while the other transactions are having either of these pairs but not both the pairs.I should read the file in a while loop and get the lines but I am not very clear in the code how to do that
Regads
SRK

Code:

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

open(FILE, "<", "inputfile") || die "Unable to open file 'inputfile' <$!>";

while(<FILE>) {
  chomp;
  my @arr = split(/\|/);
  $fileHash{$arr[0]} .= ( "-" . $arr[1] . "-" . $arr[2] . "-" . $arr[3] );
}

close(FILE);

foreach my $k ( sort keys %fileHash) {
  my $val = $fileHash{$k};
  if ( $val =~ /Q13251/ && $val =~ /A18741/ && $val =~ /Q13260/ && $val =~ /A18765/ ) {
    ### Writing to good-file code
    print "$k $val in good-file\n";
  }
  else {
    ### Writing to bad-file code
  }
}

exit 0

Hi
Thanks for your help.But unfortunately it has to be a UNIX korn shell script as otherwise the production support will not be able to handle any errors.
My sincere apologies for troubling you!
Regards
SRK