UNIX for Dummies Questions & Answers

Does that mean you have to use only shell builtins only. ?

What is the problem in running perl under ksh ?
Its going to run fine.

If you want the solution only with ksh, won't you allow using other utilities like sed, awk to be used.

Hi
I checked with the Tech Mgr .It has to be in Unix Kshell as the production people are not well versed with Perl
Please see if you can help me
Thanks
Sri

Code:

sort input_file | sed 's/|.*//' | uniq -d > $$All_Trans
egrep -f $$All_Trans input_file
rm -f $$All_Trans

Assuming I understand your requirements, I modified your example file so that
there was good pairs and bad "single lines" in a file, and the below does what
you're looking for.

file to read:
991320070521330000000003|Q13251|A18741|234567890123456
671320070521330000000003|Q13251|A18741|456787654328977
671320070521330000000003|Q13260|A18765|4567890987654321234
471320070521330000000003|Q13260|A18765|2345678901234561
991320070521330000000003|Q23251|A28741|234567890123456
471320070521330000000003|Q23260|A28765|2345678901234561

---------------
script:

#!/usr/bin/ksh

for i in `cat $1 | awk -F\| '$2~/Q/{ print $2 "|" $3 }' | sort | uniq'`
do
LINES=`grep "$i" one | wc -l`
if [[ $LINES -eq 2 ]]; then
grep "$i" one >> goodfile
else
grep "$i" one >> badfile
fi
done

---------------
just need to type in filename you want to sort as argv1
i.e. ./scriptname filename
---------------
2 output files:

more goodfile
991320070521330000000003|Q13251|A18741|234567890123456
671320070521330000000003|Q13251|A18741|456787654328977
671320070521330000000003|Q13260|A18765|4567890987654321234
471320070521330000000003|Q13260|A18765|2345678901234561

more badfile
991320070521330000000003|Q23251|A28741|234567890123456
471320070521330000000003|Q23260|A28765|2345678901234561

---------------
I notice in the example that you added some text to end of lines on badfiles, but didn't give any logic behind what is inserted. You should be able to add whatever logic testing inside the else statement to accomidate that hopefully without a lot of problems.

I doubt this solution,

for its uses the first field and then filters out the output but the OP had requested for something different in which specific Q/A pairs should be available.

I went through a scan of this solution and I don't think this would work !

Matrix, as we all agree, the OP was not and is not really clear in his specification,
thus we can have several different interpretations.

Also, the OP did not even reply yet to let us know if our solution works for him.

In any event, if the OP requires a specific Q/A pairs, here is one possible solution:

Code:

egrep 'Q13251\|A18741' input_file > TempStrs
egrep 'Q13260\|A18765' input_file >> TempStrs
sort TempStrs | sed 's/|.*//' | uniq -d > TempKeys
egrep -f TempKeys TempStrs
rm -f TempKeys TempStrs

I'm assuming columns 2 and 3 are codes, and dependant on those is where it goes. Simple code would be below using IF's to define them and write it out to their respective file with the descriptors..

cat $inputfile | awk '
BEGIN{
FS="|"
}

{

if [ $2 == "Q13260" && $3 == "A18741" ]
printf("%s >> Good Transaction\n",$0) >> "/u/data/goodfile.log"

if [ $2 == "<whatever>" && $3 == "<whatever" ]
printf("%s >> BADTransaction\n",$0) >> "/u/data/badfile.log"
}'