# PEX v.0.2 # PATTERN EXTRACTOR # Bidirectional Transcategorization Extraction Module. # # BEGIN { RS = "" nf = 1 } { while (nf <= NF) { if ($nf ~ /^questi_/) { campo1 = $nf cp = nf cp-- fw = nf fw++ if ($fw ~ /\@/ || $fw ~ /\%/ || $fw ~ /\$/ || $fw ~ /\£/ || $fw ~ /\#/) fw++ if ($fw ~ /\@/ || $fw ~ /\%/ || $fw ~ /\$/ || $fw ~ /\£/ || $fw ~ /\#/) fw++ if ($fw ~ /\@/ || $fw ~ /\%/ || $fw ~ /\$/ || $fw ~ /\£/ || $fw ~ /\#/) fw++ if ($fw ~ /,[123][12][12345678],/ && $fw ~ /,6,/ && $fw !~ /\);\(/) { nf++ campo2 = $nf nf++ campo3 = $nf nf++ campo4 = $nf nf++ campod = $cp cp-- campoc = $cp cp-- campob = $cp cp-- campoa = $cp print campoa, campob, campoc, campod, campo1, campo2,campo3, campo4, " " } else nf++ } else nf++ } }