正则表达式从字符串中提取 IP 和端口

Question

我正在使用 Perl 尝试从字符串中提取 IP 地址和端口。

我尝试使用的正则表达式是:

s/(sip:)(;.*)//

字符串是:

• sip:255.255.255.255:8080;transport=TCP
• sip:255.255.255.255:8080

显然我的正则表达式替换不起作用。谁能指出我需要如何编写正则表达式？我想从这两个字符串中提取:

255.255.255.255:8080

这意味着正则表达式需要匹配除该字符串之外的任何内容，并将其替换为任何内容。

注意:IP地址和端口每次都会不同。

Answer 1

您可以使用以下内容:

/((\d{1,3}.){3}\d{1,3}:\d+)/

说明:

(\d{1,3}\.){3} :1 到 3 个连续数字，后跟连续 3 次句点\d{1,3}:\d+ :1 到 3 个连续数字，后跟冒号，后跟至少 1 位数字

所以在代码中它看起来像这样:

my $s = 'sip:255.255.255.255:8080;transport=TCP';
my ($socket) = $s =~ /((\d{1,3}.){3}\d{1,3}:\d+)/;