Question

$string  > show box detail
2 boxes:
1) Box ID: 1
       IP:                  127.0.0.1*
Interface:           1/1
 Priority:            31

如何从上面的字符串中提取IP并附加检查*？

Answer 1

由于你只有一个看起来像ip的东西，你可以使用这个正则表达式：

(?:([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])

这就是Debuggex上的样子。

Answer 2

因为它看起来像一个文件，我的第一个假设是你需要一个单行：

perl -anlwe 'if ($F[0] eq "IP:") { print $F[1] }' input.txt

否则，我建议使用软正则表达式，例如：

if ($foo =~ /IP:\s*(\S+)/) { 
    $ip = $1;
}

Answer 3

使用Regexp::Common：

#!/usr/bin/env perl

use 5.012;
use strict;
use warnings;

use Regexp::Common qw( net );

while (my $line = <DATA>) {
    my @ips = ($line =~ /($RE{net}{IPv4})/g)
        or next;
    say @ips;
}

__DATA__
$string  > show box detail
2 boxes:
1) Box ID: 1
       IP:                  127.0.0.1*
Interface:           1/1
 Priority:            31
2) Box ID: 2
       IP:                  10.10.1.1
Interface:           1/1
 Priority:            31

Answer 4

您可以使用此匹配（显示为可选*）

((\d{1,3}\.){3}\d{1,3}\*?)

如何从以下字符串中提取IP

4 个答案: