Pourquoi est-ce incorrect?

Question

$line =~ (m/<Old IP=(^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})>)/i) 

Je fais correspondre et j'extraire une adresse IP. Vous ne savez pas pourquoi cette erreur de don? Je crois que regex est correct.

Il me donne

Inégalée) dans regex; marqué par < - ICI en m/IP = (^ \ d {1,3} \. \ d {1,3} \. \ d {1,3} \. \ d {1,3}) >) < - ICI/

Answer 1

i supprimer ^ et )

$line = "<Old IP=5.2.3.2>"; 
$line =~ m/<Old IP=(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})>/i ; 
print $1; 

sortie:

5.2.3.2 

https://eval.in/144029