字符顺序重组的问题

haokoo

file：
0D111400
16EBE3A3
068A055F
0D194300
A1B2C3D4
641C1215


用最简洁的代码（方法）将每行字符串进行重组，规律如下：

A1B2C3D4  --> D4C3B2A1


我用了一个方法达到了效果，想请教各位大侠有没有更好的方法。

我的方法：

cut -c7,8 file > temp.1
cut -c5,6 file > temp.2
cut -c3,4 file > temp.3
cut -c1,2 file > temp.4
paste temp.* | sed -e 's/\t//g' > newfile

ly5066113

回复 1# haokoo


try:

1. awk -v FIELDWIDTHS='2 2 2 2' '{print $4$3$2$1}' file
   
2. sed -r 's/(..)(..)(..)(..)/\4\3\2\1/' file

复制代码

jackhuntcn

1. $ echo "A1B2C3D4" | sed -r 's/(..)(..)(..)(..)/\4\3\2\1/'
   
2. D4C3B2A1
   
3. $ echo "A1B2C3D4" | awk 'BEGIN{FS="";OFS=""}{NF++;print $7$8$5$6$3$4$1$2}'
   
4. D4C3B2A1
   

复制代码

haokoo

  谢谢，又学会一招
回复 2# ly5066113


   

haokoo

  谢谢回复 3# jackhuntcn


   

jason680

回复 1# haokoo

# for fix length

$ echo '0D111400' | sed -r 's/(..)(..)(..)(..)/\4\3\2\1/'
0014110D

$ cat FILE
0D111400
16EBE3A300

$ sed -r 's/(..)(..)(..)(..)/\4\3\2\1/' FILE
0014110D
A3E3EB1600  <== fix length issue

# dynamic legth with even
$ perl -lane '$s="";$s="$1$s" while(m/(..)/g);print$s' FILE
0014110D
00A3E3EB16

   

Shell_HAT

1. paste -d "" <(cut -c7,8 urfile) <(cut -c5,6 urfile) <(cut -c3,4 urfile) <(cut -c1,2 urfile)

复制代码

yestreenstars

1. perl -lpe 'chomp;$_=reverse;s/(.)(.)/$2$1/g'

复制代码

haokoo

回复 6# jason680

    牛啊 考虑很全面，不过我实际环境中字符串长度是固定。这方法很nice！
   

haokoo

回复 7# Shell_HAT


    谢谢，学会了paste中-d这个参数