批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] perl 文本排序及修改

1、把3.2004 改成T01放到前面,%后对应的T0*也要改成TO1,
2、再排1-2位小数的,从小排到大,对应该的T02往后加
3、再排3位小数尾数等于1的,往后排序
1.txt 修改成2.txt的效果

1.txt 内容   
M48
T01C.8510
T02C1.5000
T03C1.8510
T04C2.5000
T05C3.2004
%
M71
G93X0Y0
T01
X003025Y008682
T02
X0Y002012
T03
X003025Y010694
T04
X-000096Y00503
T05
X006575Y002412
M30

-------------------------------------
改成2.txt 的效果
M48
T01C3.2004
T02C1.5000
T03C2.5000
T04C.8510
T05C1.8510
%
M71
G93X0Y0
T01
X006575Y002412
T02
X0Y002012
T03
X-000096Y00503
T04
X003025Y008682
T05
X003025Y010694
M30

perl文本排序

1、把3.2004 改成T01放到前面,%后对应的T0*也要改成TO1,
2、再排1-2位小数的,从小排到大,对应该的T02往后加
3、再排3位小数尾数等于1的,往后排序
1.txt 修改成2.txt的效果

1.txt 内容   
M48
T01C.8510
T02C1.5000
T03C1.8510
T04C2.5000
T05C3.2004
%
M71
G93X0Y0
T01
X003025Y008682
T02
X0Y002012
T03
X003025Y010694
T04
X-000096Y00503
T05
X006575Y002412
M30

-------------------------------------
改成2.txt 的效果
M48
T01C3.2004
T02C1.5000
T03C2.5000
T04C.8510
T05C1.8510
%
M71
G93X0Y0
T01
X006575Y002412
T02
X0Y002012
T03
X-000096Y00503
T04
X003025Y008682
T05
X003025Y010694
M30

TOP

返回列表