#!/usr/bin/perl

@sensoroutput=`/usr/bin/sensors`;

foreach(@sensoroutput) {
  chomp();
  split();
  if ( $_[0] eq 'temp1:' ) {
        $temp1 = $_[1];
  }
  if ( $_[0] eq 'temp2:' ) {
        $temp2 = $_[1];
  }
  if ( $_[0] eq 'temp3:' ) {
    $temp3 = $_[1];
  }
  if ( $_[0] eq 'fan1:' ) {
        $fan1 = $_[1];
  }
  if ( $_[0] eq 'fan2:' ) {
        $fan2 = $_[1];
  }
  if ( $_[0] eq 'fan3:' ) {
        $fan3 = $_[1];
  }
}
$temp1 =~ s/\+//;
$temp1 =~ s/\°C//;
$temp2 =~ s/\+//;
$temp2 =~ s/\°C//;
$temp3 =~ s/\+//;
$temp3 =~ s/\°C//;

print "$fan1 $fan2 $fan3 $temp1 $temp2 $temp3\n";