请教关于awk在perl中如何转义？

marinercn

nawk '{printf "%s",(NF>1)?"\n":";";printf "%s",$0}'

如上的语句在perl中执行，需要怎么转义？

ecjtubaowp

回复 1# marinercn

1. perl -ane 'printf "%s",(@F>1)?"\n":";";chomp;print'

复制代码

marinercn

谢谢ecjtubaowp！
请问如果还是使用awk哪些需要修改？

ecjtubaowp

回复 3# marinercn


    nawk和awk相差不大吧，nawk没用过，你自己试试吧。

marinercn

awk '{printf "\%\s",(\NF>1)\?"\n"\:";"\;printf "\%\s",\$0}'
不知道上面的转义是否正确？
awk在linux上面使用，nawk主要是Unix上面使用，的确差别不大

ecjtubaowp

marinercn 发表于 2012-05-08 23:42
awk '{printf "\%\s",(\NF>1)\?"\n"\:";"\;printf "\%\s",\$0}'
不知道上面的转义是否正确？
awk在linux上 ...

你这里所说的转义是什么意思啊，为什么要这么弄，直接awk '{printf "%s",(NF>1)?"\n":";";printf "%s",$0}'不行吗？

marinercn

直接执行在perl里面会对某些变量进行替换，已经验证ok，更改如下即可：
awk '{printf "%s",(NF>1)?"\\n":";";printf "%s",\$0}' urfile