Help for this page

Select Code to Download


  1. or download this
    my  ($IP_addr)=$content=~m/(\d+\.\d+\.\d+\.\d+)/;
  2. or download this
    use Regexp::Common qw /net/;
my  ($IP_addr)= $content=~ /$RE{net}{IPv4}/ ;