求助：行首19个字符均为空格，则附加到上一行并且以逗号（或者分号）隔开

marinercn

求助：行首19个字符均为空格，则附加到上一行并且以逗号（或者分号）隔开，怎么实现？

marinercn

User Name:         test
Privileges:        useradm
                   platadm
                   auditadm

waker

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

marinercn

回复 3# waker
需要在perl中调用awk，通过命令执行是正常，但是放在perl中就报错，需要对awk中的参数进行修改，不知道具体怎么做？

marinercn

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

不知道上面的转义是否正确？

mpstat

回复 4# marinercn


    你应该发到perl版

waker

marinercn 发表于 2012-05-08 18:24
回复 3# waker
需要在perl中调用awk，通过命令执行是正常，但是放在perl中就报错，需要对awk中的参数进行 ...

Perl是一种高阶、通用、直译式、动态的程式语言。最初设计者拉里·沃尔（Larry Wall）为了让在UNIX上进行报表处理的工作变得更方便，决定开发一个通用的脚本语言，而在1987年12月18日发表。

Perl借取了C、sed、awk、shell脚本以及很多其他编程语言的特性。

marinercn

问题已经解决：

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