从文本中取值求助

jason680

回复 1# bikkuri


$ data="AAAA:12K3456[1] BB:2455F63 CCC:9452T045[3] D:458J83[2] FF:45245K39"

$ echo $data | perl -lane '{$_.=" ";while(m/(\w+):(\w+)(?:\[(\d+)\])?\s/g){printf"Object:%-6s Code:%-15s Fileld:%s\n",$1,$2,$3?$3:"-1"}}'

------------------------------------------------------

data="AAAA:12K3456[1] BB:2455F63 CCC:9452T045[3] D:458J83[2] FF:45245K39"
for str in $data; do
  obj=`echo $str | awk -F'[]:[]+' '{print $1}'`
  code=`echo $str | awk -F'[]:[]+' '{print $2}'`
  field=`echo $str | awk -F'[]:[]+' '{print $3}'`
  printf "Object:%-6s Code:%-15s Field:%s\n" $obj $code ${field:--1}
done