TCL - 在文件中搜索IP地址

Question

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

我有这个正则表达式来查找IP地址：

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

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

任何人都可以给我一个更好的解决方案吗？

非常感谢

Answer 1

你只是错过了几个options

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