Perl哪位熟正则表达式，帮忙看看怎么做？[已解决]

wsta
Perl哪位熟正则表达式，帮忙看看怎么做？[已解决]

字符串aaa的值如下：
RX bytes:[color=red]496264311 [/color](473.2 MiB)  TX bytes:[color=blue]131724464[/color] (125.6 MiB)

怎么把把红色，蓝色的数值保存到两个变量bbb,ccc中；
准备计算上行和下行的速度。

[[i] 本帖最后由 wsta 于 2008-6-20 22:30 编辑 [/i]]

junonly
回复 #1 wsta 的帖子

这样行不行？
[code]#!/usr/bin/perl -w
$_ = "RX bytes:496264311 (473.2 MiB)  TX bytes:131724464 (125.6 MiB)";
if(//:(/d+).*/:(/d+).*/) {
        print;
        print "/n",$1,"/n",$2;
        $bbb = $1;
        $ccc = $2;
} else {
        print "error!";
}[/code]

marscld
回复 #1 wsta 的帖子

$source =~ /^.*/:(/d+).*/:(/d+).*/

$bbb = $1;

$ccc = $2;

[[i] 本帖最后由 marscld 于 2008-6-19 10:33 编辑 [/i]]

wsta
多谢，很好用。

终于可以实时监控小猫的速度了：
# ##---------------------
# ##recv: 147.8109 KB/S
# ##send: 49.7061 KB/S
# ##---------------------
#

__lxmxn__
[quote]原帖由 [i]wsta[/i] 于 2008-6-19 21:26 发表 [url=http://bbs.chinaunix.net/redirect.php?goto=findpost&pid=8623096&ptid=1164244][img]http://bbs.chinaunix.net/images/common/back.gif[/img][/url]
多谢，很好用。

终于可以实时监控小猫的速度了：
# ##---------------------
# ##recv: 147.8109 KB/S
# ##send: 49.7061 KB/S
# ##---------------------
# [/quote]
如何监控，可以把代码放上来学习一下么？

wsta
小猫是linux内核+busybox； 自带snmp服务有问题取不到正确的收发统计；web取值太耗费资源；
只好用SecureCRT终端软件telnet上去，perl脚本用ifconfig命令看ppp接口的收发，计算出来速度。