关于正则表达式

wellsty

newmo!here@61.172.254.193::::::v4only1

我怎么在上面的字符里提取IP出来

ygl23

用AWK先以"@"为分界符导出第二个列，然后再以":"为分界符导出第一个列。

apile

$ip= (split(/[\@:]/,'newmo!here@61.172.254.193::::::v4only1'))[1];
or
($ip)='newmo!here@61.172.254.193::::::v4only1'=~/\@(.*?):/;

tiw

use Regexp::Common qw /net/;

    while (<> {
        /$RE{net}{IPv4}/       and print "Dotted decimal IP address";
        /$RE{net}{IPv4}{hex}/  and print "Dotted hexadecimal IP address";
        /$RE{net}{IPv4}{oct}{-sep =>; ':'}/ and
                               print "Colon separated octal IP address";
        /$RE{net}{IPv4}{bin}/  and print "Dotted binary IP address";
        /$RE{net}{MAC}/        and print "MAC address";
        /$RE{net}{MAC}{oct}{-sep =>; " "}/ and
                               print "Space separated octal MAC address";
    }
--------------------
from http://search.cpan.org/~abigail/Regexp-Common-2.117/lib/Regexp/Common/net.pm