这个程序有没有更好的实现方法？

youyuanyin

UID: 40780
帖子: 107
积分: 246
在线时间: 15 小时

21^# youyuanyin 发表于 2008-07-17 13:14

QUOTE:

原帖由 flw 于 2008-7-16 23:25 发表
D:\MoChou>cat ttt.pl
use Data:umper;

while(){
next unless /CPU/;
my @field = split;
$_ = ;
my @value = split;

my @index = grep { $field[$_] =~ /^%/ and $field[$_] ...

这位哥们儿真强，能给讲解或加个注释吗？

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

22^# mouse.rice 发表于 2008-07-17 14:00

QUOTE:

原帖由 youyuanyin 于 2008-7-17 13:14 发表

这位哥们儿真强，能给讲解或加个注释吗？

呵呵，这个哥们儿可是版主，不强会有人砸场子的

另：楼主可是武汉开发区海蜘蛛黄总公司的？这个关于Perl的问题应该去问你公司的李工呀~~ 我们有缘啊，感叹这天下真小

lin_wang

UID: 19387
帖子: 3
积分: 6
在线时间: 10 分钟

23^# lin_wang 发表于 2008-07-17 15:10

QUOTE:

原帖由 mouse.rice 于 2008-7-17 14:00 发表

呵呵，这个哥们儿可是版主，不强会有人砸场子的

另：楼主可是武汉开发区海蜘蛛黄总公司的？这个关于Perl的问题应该去问你公司的李工呀~~ 我们有缘啊，感叹这天下真小

是啊！

youyuanyin

UID: 40780
帖子: 107
积分: 246
在线时间: 15 小时

24^# youyuanyin 发表于 2008-07-18 10:22

楼上两位俨然两位江湖大侠偶遇啊，感情我就是一看热闹的！

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

25^# forlorngenius 发表于 2008-07-18 11:01

lz 的头像很好看。