Question

鉴于我有一个巨大的字符串，让我们说1000行，让我们将该字符串命名为“itext”。

我只对“itext”中包含单词“Description：”的那些行感兴趣。例如，在原始“itext”字符串中包含字符串“Description：”的行上仅进行以下替换：

regsub -all -- {Loopback} $itext "Lo" itext ;

有没有办法实现这一目标（不逐行，拆分和加入）？

例如，“itext”可以是这样的：

Loopback11 is up, line protocol is up 
Hardware is Loopback
Description: Loopback11-Eigrp-National
MTU 1500 bytes, BW 100000 Kbit, DLY 100 usec, 
reliability 255/255, txload 1/255, rxload 1/255
Encapsulation ARPA, loopback not set
Keepalive set (10 sec)
Auto-duplex, Auto-speed
input flow-control is off, output flow-control is off
ARP type: ARPA, ARP Timeout 04:00:00
Last input never, output never, output hang never
Last clearing of "show interface" counters never
Input queue: 0/2000/20036/0 (size/max/drops/flushes); Total output drops: 242246
Queueing strategy: fifo
Output queue: 0/40 (size/max)
5 minute input rate 0 bits/sec, 0 packets/sec
5 minute output rate 0 bits/sec, 0 packets/sec
159767635870 packets input, 108501870627241 bytes, 0 no buffer
Received 9361144 broadcasts (8029769 multicasts)
0 runts, 20036 giants, 0 throttles
20036 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored
0 watchdog, 0 multicast, 0 pause input
0 input packets with dribble condition detected
200041278050 packets output, 193147599625066 bytes, 0 underruns
0 output errors, 0 collisions, 2 interface resets
0 babbles, 0 late collision, 0 deferred
0 lost carrier, 0 no carrier, 0 pause output
0 output buffer failures, 0 output buffers swapped out

Answer 1

您只需-line选项即可启用换行敏感匹配：

regsub -all -line -- {^(Description:.*)Loopback} $itext {\1Lo} itext

http://tcl.tk/man/tcl8.5/TclCmd/regsub.htm

Tcl：如何在多行字符串中有条件地替换

1 个答案: