TCL-在文件中搜索ip地址

我有一个包含许多不同ip地址的文件。 我需要做的是，找到这些ip地址并将它们放入变量、列表或文件中，以便以后我可以对它们执行更多操作

我使用此regexp查找ip地址：

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

但它只给我文件的第一个ip地址

有谁能给我一个更好的解决办法吗

---

非常感谢

您只是错过了几天

---

使用

（？：\d{1,3}\）{3}\d{1,3}（\/）（[0-9]+）

作为re可能会更好。（它不能处理所有写入IP地址的方式，甚至也不能处理所有写入IPv4地址的方式，但不会过度阅读。）

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