标题: [问题求助] perl 文本排序及修改 [打印本页]

---

作者: xx/xx    时间: 2022-10-7 08:34     标题: 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

---

作者: xx/xx    时间: 2022-10-7 09:03     标题: 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

---

作者: 523066680    时间: 2023-2-18 10:30

当时没看明白描述，再看已经几个月过去了，
话说这个是用在什么行业上的？

---

欢迎光临 批处理之家 (http://bathome.net./)

Powered by Discuz! 7.2