Matching IP в Perl

Question

Я использую этот код, чтобы соответствовать IP

$IP =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; 

if ($1 < 256 && $2 < 256 && $3 < 256 && $4 < 256) { 
print "IP matched"; 
} 

Я не хочу использовать, если цикл. Есть ли способ, что мы можем сделать проверку (< 256) в регулярном выражении только

Я знаю, что есть еще один способ, как

/25[0-5]|2[0-4][0-9]|[01][0-9][0-9]?/ 

Является ли другой ярлык способ

Answer 1

Посмотрите на @ysth ответ или вы можете хранить спички в массив:

my @m = grep $_ <256, $IP =~ /([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})/; 

if (@m == 4) { 
    print "IP matched"; 
} 

Answer 2

Это не красиво, но как о чем-то вроде /^(1?\d{1,2}|2[0-4]\d|25[0-5])(\.(1?\d{1,2}|2[0-4]\d|25[0-5])){3}$/

Answer 3

Я могу понять, что вы спрашиваете о регулярном выражении для проверки IP-адреса? Но почему бы вам не попробовать http://metacpan.org/pod/Data::Validate::IP вместо ручных подходов?

Answer 4

use Regexp::Common 'net'; 

if ($IP =~ /\A$RE{net}{IPv4}\z/) { 
    print "IP matched\n"; 
} 

Answer 5

Встроенный код может быть использован в качестве условия внутри регулярного выражения, и некоторые ветви могут быть сделаны, чтобы заставить откаты:

qr/ 
    # the string consists of nothing but 4 bytes separated by a period 
    \A (?&decimal_byte) (?: [.] (?&decimal_byte)){3} \z 

    (?(DEFINE) 
    (?<decimal_byte> 
     ([0-9]{1,3}+) # 1 to 3 digits without backtracking 
     (?(?{ $^N <= 0xFF }) | (*FAIL)) # (?(?{ COND }) YES | NO) 
    ) 
) 
/x 

$^N относится к last closed capture group. Обратите внимание, что оценка кода внутри регулярных выражений имеет последствия безопасности и что этот метод не переносится на другие двигатели регулярных выражений, такие как pcre.

---

1. Если вы слепо интерполировать ненадежное регулярное выражение, он может выполнить произвольный код:

   my $malicious = '(?{ `rm -rf ~` })'; 
   
   say "You were pwned" if $foo =~ /something="$malicious"/; 
   

   Perl спасает вас от регулярных выражений ада безопасности, требуя, чтобы вы use re qw/eval/, если вы хотите, чтобы нести ответственность за regex security. Обратите внимание, что это необходимо, только если интерполяция запускает новую компиляцию: my $ok = qr/(?{ say "yes" })/; $foo =~ /$ok/ работает просто отлично.