Shell Programming and Scripting

INSERT INTO ABC_DLKFJAL_FJKLD
SELECT DISTINCT S,B,C FROM ADF_DKF_KDFJ_IERU8 A, ABC_LKDJFREUE9_FJKDF B
WHERE A.FI=B.EI;
COMMIT;

ABS_DLKFJAL_FJKLD, ADF_DKF_KDFJ_IERU8, ABS_LKDJFREUE9_FJKDF

perl -lne 'push @w, /\bA(?:BC|DF)_\w+/g; END{ print join ", ", @w if @w}' ABC.txt

#!/bin/bash

while read line
do
        for word in $line
        do
                if [[ "$word" =~ ^ABC_ ]] || [[ "$word" =~ ^ADF_ ]]
                then
                        [ -z "$str" ] && str="$word" || str="${str},${word}"
                fi
        done
done < ABC.txt

echo "$str"

ABS_DLKFJAL_FJKLD, ADF_DKF_KDFJ_IERU8, ABS_LKDJFREUE9_FJKDF

printf '%s\n' 'ABC_' 'ADF_' | awk '
FNR == NR {
        # Read patterns to be matched from standard input.
        p[++pc] = $0
        next
}
{       # For every field in the current line...
        for(i = 1; i <= NF;i++)
                # If this field has not already been printed...
                if(!($i in m))
                        # See if this field matches any of the given patterns..
                        for(j = 1; j <= pc; j++)
                                if(substr($i, 1, length(p[j])) == p[j]) {
                                        m[$i]
                                        printf("%s%s", mc ? ", " : "", $i)
                                        mc = 1
                                }
}
END {   printf("%s\n", mc ? "" : "No matches found.");
}' - ABC.txt

sed ':deb;${s/,\|\n/ /g;s/ \(ABC\|ADF\)/,\1/g;s/[^,]*\(,[^ ]*\)/\1/g;s/^,\| .*//g;b};N;bdeb' ABC.txt