delete_partial_agreed_word.awk

#!/usr/bin/awk -rf

BEGIN{
    list=ARGV[1]
    while (getline < list > 0) {
        word[$1]++
    }
    close(list)
}

/.+/{
    for(i in word){
        regstr=$1
        perfect_match_regstr="^"regstr"$"
        word_p_status=match(i,perfect_match_regstr)
        word_status=match(i,regstr)
        if(1==word_p_status) continue
        if(0<word_status){
            delete word[i]
        }
    }

}

END{
    for(j in word) print j > "blockword.txt"
}