All pastes #117321 Raw Edit

Temp

public text v1 · immutable
·published 2006-08-05 21:54 UTC
rendered paste body
#!/bin/perl

my $cpu=`sensors | grep "CPU Temp" | cut -f 1 -d "\("`;
my $sys=`sensors | grep "SYS Temp" | cut -f 1 -d "\("`;

$cpu =~ s/\D//g;
$cpu = $cpu/10; 
$sys =~ s/\D//g;
$sys = $sys/10; 

print "CPU/SYS ${cpu}C ${sys}C\n";