2013-11-24 48 views
0

搜索IP地址我有一個包含大量不同的IP地址的文件。 我需要做的是,找到這些IP地址,並將它們放入一個變量或列表或文件中,以便以後我可以對它們執行更多操作。TCL - 在一個文件中

我有這樣的正則表達式來查找IP地址:

% set ip [open subnets.txt r] 
% set sub [read $ip] 
% regexp {(?:\d+\.){3}\d+(\/)([0-9]+)} $sub a 

,但它只是給我的文件的第1個IP地址。

任何人都可以給我一個更好的解決方案嗎?

非常感謝

+0

你用'可能是更好的是(?:\ d {1,3} \){3} \ d {1,3}(\ /)([0-9] +)'作爲RE。 (它不處理所有寫入IP地址的方式,甚至不會寫所有寫入IPv4地址的方式,但不會重讀太多。) –

回答

1

你只是缺少幾個options

set addresses [regexp -all -inline {(?:\d+\.){3}\d+/[0-9]+} $sub]