gawk 正则分割难题

temp0411

cat sample.txt
hello;James; Dean;Tom;Lucy
ads; coming;really;let; us;have a talk
okay1;good;x;bla; bla
okay2;thank; you;x;bye;bye

现在要按照';'做分隔符，但是如果';'后面紧跟空格，则不可以作为分隔符，而是内容。现在要输出第3列为'x'的行中第二列的值：
good // okay;good;x;bye ;bye 符合要求
thank; you // okay2;thank; you;x;bye;bye  符合要求

假设该文件有10000行，且列不固定，但是列数至少大于3且所有列不为空. 期望写成的awk程序尽可能短，能不用循环判断切割最好。 ps: 其他命令也可

[ 本帖最后由 temp0411 于 2009-11-29 02:21 编辑 ]

lululau

perl -lne '@f=split /;(?! )/;print $f[1] if $f[2] eq "x"'

lululau

如果你的文本里没有像@@这种特殊字符串的话，可以先替换一下：
sed 's/; /@@/g' | gawk -F';' '$3=="x"{print $2}' | gsed 's/@@/; /g'

blackold

转换一下再用awk，或者用perl正则(perl, grep)

temp0411

原帖由 lululau 于 2009-11-29 03:13 发表
如果你的文本里没有像@@这种特殊字符串的话，可以先替换一下：
sed 's/; /@@/g' | gawk -F';' '$3=="x"{print $2}' | gsed 's/@@/; /g'

@是不可以的，最多只能用 \n 替换

temp0411

perl 正则真是强大，看来有必要得学习下这门语言了

受老黑启发：
grep -P -o '^([^;]|; )+;([^;]|; )+(?=;x;(?! ))' sample.txt | grep -P -o '(?<=[^ ].*$'

[ 本帖最后由 temp0411 于 2009-11-29 15:15 编辑 ]

haimming

学习

luyi1983

原帖由 lululau 于 2009-11-29 03:08 发表
perl -lne '@f=split /;(?! )/;print $f[1] if $f[2] eq "x"'

顶。。。