Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(net);
...
 print 'match' if '54321.2.3.45678' =~ m{ $RE{net}{IPv4} }xms;
"
match

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(net);
...
no match 'ADMIN__SANDRO_DESK="123.45.78.90"   #  ilcylic Desktop'
   MATCH '# ADMIN__SANDRO_DESK="123.45.78.91"   #  ilcylic Desktop (ol
+d)'
   MATCH '# 06/06/15    SR    Chgd SANDRO 121.123.65.92'