Attempting to alter a perl script.

[EvilGrin]

I'm attempting to alter a 'sysinfo' script to display the output of my System and CPU tempratures. The situation is compilcated by the fact I know very little about perl and that I have a dual processor machine. The current code doesn't work, the output from 'sensors' is different from what the script expects. It uses two variables one for the sys temp and one for the cpu temp. Obviously I'll need a 3rd variable for the second CPU temp.

The current code looks like this:

Code: Select all

sub temp
{
    #--LM_SENSORS #1--#
    $SENSOR1 = `sensors -f | grep SYS | awk '{print \$1, \$2, \$3}'`;
    chop ($SENSOR1);

    #--LM_SENSORS #2--#
    $SENSOR2 = `sensors -f | grep 'CPU Temp' | awk '{print \$1, \$2, \$3}'`;
    chop ($SENSOR2);

    #--SPEW IT INTO THE CHANNEL SHALL WE--#
IRC::command("$SENSOR1 $SENSOR2");
return 1;
}

basically I want the contents of 3 variables to contain.

Code: Select all

$SENSOR1 = System Temp: xxx°C 
$SENSOR2 = CPU0 Temp: xxx°C 
$SENSOR3 = CPU1 Temp: xxx°C

my 'sensors' output looks like this for system, cpu0 and then cpu1:

Code: Select all

bash-2.05b$ sensors lm79-i2c-1-2d | grep temp
temp:      +25.0°C  (limit =  +60°C, hysteresis =  +50°C)
bash-2.05b$ sensors lm75-i2c-1-4c | grep temp
temp:      +60.0°C  (limit = +120.0°C, hysteresis = +100.0°C)
bash-2.05b$ sensors lm75-i2c-1-4d | grep temp
temp:      +64.0°C  (limit = +120.0°C, hysteresis = +100.0°C)

[TheEternalVortex]

Try looking at the output of these commands:
sensors -f | grep SYS | awk '{print $1, $2, $3}'
sensors -f | grep 'CPU Temp' | awk '{print $1, $2, $3}'