求助：行首19個(gè)字符均為空格，則附加到上一行并且以逗號(hào)（或者分號(hào)）隔開

marinercn

求助：行首19個(gè)字符均為空格，則附加到上一行并且以逗號(hào)（或者分號(hào)）隔開，怎么實(shí)現(xiàn)？

marinercn

User Name:         test
Privileges:        useradm
                   platadm
                   auditadm

waker

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

marinercn

回復(fù) 3# waker
需要在perl中調(diào)用awk，通過命令執(zhí)行是正常，但是放在perl中就報(bào)錯(cuò)，需要對(duì)awk中的參數(shù)進(jìn)行修改，不知道具體怎么做？

marinercn

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

不知道上面的轉(zhuǎn)義是否正確？

mpstat

回復(fù) 4# marinercn


    你應(yīng)該發(fā)到perl版

waker

marinercn 發(fā)表于 2012-05-08 18:24
回復(fù) 3# waker
需要在perl中調(diào)用awk，通過命令執(zhí)行是正常，但是放在perl中就報(bào)錯(cuò)，需要對(duì)awk中的參數(shù)進(jìn)行 ...

Perl是一種高階、通用、直譯式、動(dòng)態(tài)的程式語言。最初設(shè)計(jì)者拉里·沃爾（Larry Wall）為了讓在UNIX上進(jìn)行報(bào)表處理的工作變得更方便，決定開發(fā)一個(gè)通用的腳本語言，而在1987年12月18日發(fā)表。

Perl借取了C、sed、awk、shell腳本以及很多其他編程語言的特性。

marinercn

問題已經(jīng)解決：

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