提取字符串

heizi_liu

UID: 12493
帖子: 22
积分: 50
在线时间: 10 分钟

1^# heizi_liu 发表于 2008-06-14 10:49

提取字符串

$str=inet 121.227.21.222 peer 202.111.33.26/32 scope global ppp0
$addr=(split /\s+/,$str)[-4];
这个时候addr等于202.111.33.26/32 ，其实我想要的结果只是202.111.33.26，也就是要把后面的/32去掉，请问怎么做，望大哥帮下忙！谢谢！
急等！

heizi_liu

UID: 12493
帖子: 22
积分: 50
在线时间: 10 分钟

2^# heizi_liu 发表于 2008-06-14 11:06

谁帮看下呢！？

zhengshangguo

UID: 2565
帖子: 11
积分: 25
在线时间: 10 分钟

3^# zhengshangguo 发表于 2008-06-14 11:15

#!usr/bin/perl -w

$str="inet 121.227.21.222 peer 202.111.33.26/32 scope global ppp0";
$addr=(split /\s+/,$str)[-4];
$addr=(split /\// ,$addr)[0];
print $addr;

heizi_liu

UID: 12493
帖子: 22
积分: 50
在线时间: 10 分钟

4^# heizi_liu 发表于 2008-06-14 11:36

高手指教一下呢！？

heizi_liu

UID: 12493
帖子: 22
积分: 50
在线时间: 10 分钟

5^# heizi_liu 发表于 2008-06-14 11:39

谢谢大哥！呵呵！

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

6^# ulmer 发表于 2008-06-17 16:12

$st r= 'net 121.227.21.222 peer 202.111.33.26/32 scope global ppp0';
($addr) = $str =~ m{([.\d]+)/\d+};
print $addr