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

youyuanyin

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

11^# youyuanyin 发表于 2008-07-16 16:50

我也是这个思路

q1208c

UID: 35986
帖子: 6
积分: 13
在线时间: 10 分钟

12^# q1208c 发表于 2008-07-16 17:00

QUOTE:

原帖由 lin_wang 于 2008-7-16 16:31 发表

可是不是???

可以不是。

写错了。

lin_wang

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

13^# lin_wang 发表于 2008-07-16 17:01

QUOTE:

原帖由 q1208c 于 2008-7-16 17:00 发表

可以不是。

写错了。

PHP可以

Perl不行

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

14^# cobrawgl 发表于 2008-07-16 17:06

我写错括号了，用大括号

@h{@k} = @v;

youyuanyin

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

15^# youyuanyin 发表于 2008-07-16 17:32

QUOTE:

原帖由 cobrawgl 于 2008-7-16 17:06 发表
我写错括号了，用大括号

@h{@k} = @v;

受教了，perl真强大

youyuanyin

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

16^# youyuanyin 发表于 2008-07-16 17:37

QUOTE:

原帖由 cobrawgl 于 2008-7-16 17:06 发表
我写错括号了，用大括号

@h{@k} = @v;

my (%hash, @keys, @values);

@hash{@keys} = @values;
print "CPU IDLE: $hash{'%idle'}%\n";

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

17^# flw 发表于 2008-07-16 23:25

[Copy to clipboard] [ - ]

CODE:

D:\MoChou>cat ttt.pl
use Data::Dumper;

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

my @index = grep { $field[$_] =~ /^%/ and $field[$_] = $' } 0..$#field;
my %hash;
@hash{ @field[@index] } = @value[@index];

print Dumper( \%hash );
}
__END__
Linux 2.6.18 (lynch) 2008年07月16日

12时18分00秒  CPU %user %nice %sys %iowait %irq %soft  %steal %idle intr/s
12时18分00秒 all    14.49    0.00    1.06 0.49    0.05    0.02 0.00    83.89 287.70

D:\MoChou>ttt
$VAR1 = {
      'sys' => '1.06',
      'soft' => '0.02',
      'idle' => '83.89',
      'nice' => '0.00',
      'irq' => '0.05',
      'steal' => '0.00',
      'user' => '14.49',
      'iowait' => '0.49'
      };

D:\MoChou>

lin_wang

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

18^# lin_wang 发表于 2008-07-17 08:59

高深，研究研究！

lin_wang

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

19^# lin_wang 发表于 2008-07-17 09:27

QUOTE:

原帖由 cobrawgl 于 2008-7-16 17:06 发表
我写错括号了，用大括号

@h{@k} = @v;

看不懂，解释下

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

20^# cobrawgl 发表于 2008-07-17 09:37

hash slices.

小骆驼上就有。