请问如何按字符串长度截取一段字符串

lhylhy38

000D6051094A
做大小写转换，再按4个字符串截取,插入“.”
输出为：
000d.6051.094a

最好是能做变量引用，因为这个串号是系统里查出来的。

rdcwayx

1. echo "000D6051094A" |sed 's/.*/\L&/g;s/\(....\)/\1./g'

复制代码

yangkyo821

1. a='000D6051094A'
   
2. sed 's/.\{4\}\B/&./g;s/.*/\L&/' <<< $a

复制代码

jiejie455

echo '000D6051094A' |sed 's/./\L&/g;s/.\{4\}/&./g;s/\.$//'

lhylhy38

1. echo "000D6051094A" |tr A-Z a-z|sed 's/\(....\)/\1./g'|awk -F. '{print $1"."$2"."$3}'
   

复制代码

谢谢各位的帮助，因为我是在AIX ksh上跑的，bash的语法不是很兼容。
解决代码如上，取了2楼的一段sed，用tr 做大小写转换，最后用awk 格式化输出。貌似不是很好，不过问题解决了。-。-继续学习。

white2010

zooyo 发表于 2012-02-27 14:17

\B是什么意思？

jason680

回复 7# lhylhy38

would you like to use perl
use tr and substitute in perl as like as tr and sed command
$ echo "000D6051094A" | perl -lape '{tr/A-Z/a-z/;s/(....)\B/$1./g}'
000d.6051.094a

use lc function for lowercase
$ echo "000D6051094A" | perl -lpe '{$_=lc;s/(....)\B/$1./g}'
000d.6051.094a   

use lc and join in perl
$ echo "000D6051094A" | perl -lne '{print lc join".",(m/.{4}/g)}'
000d.6051.094a