2

鉴于我有一个巨大的字符串,假设 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
4

1 回答 1

6

您只需要-line启用换行敏感匹配的选项:

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

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

于 2012-10-15T01:27:48.893 回答