[perl] copying an array element into another array

s0l1dsnak3123 · 05-16-2008, 02:08 PM

hi there.

I want to copy all array elements from $cpu->load[] to @load. I have tried the following without any success:

Code:

my $info = Sys::Info->new;
my $cpu  = $info->device( 'CPU' );

my @load;
foreach ($cpu->load) {
push(@load, $_);
print $_ . "\n";
}

Is there another way for me to do this?

thanks,

s0l1dsnak3123

osor · 05-16-2008, 07:56 PM

Your question does not make sense. $cpu->load is a subroutine, not an array. The subroutine always returns a scalar. The value returned depends on the subroutine’s first parameter. According to this, the valid parameters are 0, 1, or 2 for the load in the last 1, 5, or 10 minute interval respectively.

So if you want to get all the values, you can map the specified values to the subroutine with said values as a parameter. E.g.,

Code:

my @load = map $cpu->load($_), 0, 1, 2;

Or, as a hash,

Code:

my %load_by_minute;
@load_by_minute{1, 5, 10} = map $cpu->load($_), 0, 1, 2;

s0l1dsnak3123 · 05-17-2008, 02:47 AM

Thanks alot, it works perfectly now