#!/usr/bin/perl -w
# Written by marcoski
############ SCRIPT THAT TAKE VALUE TO MRTG TO MONITORING SYSTEM TEMPERATURE
# parameters: [cp][mb]
 
my($arg, $command, $temperature);
$command=`sensors`;
$arg = $ARGV[0];
if(length($arg) != 0){
    if($command =~ /$arg: *\+([0-9]{2}|[0-9]{2}\.[0-9])\°.*/){
        $temperature = $1;
        if($temperature =~ /([0-9]{2})\.[0-9]/){
             $temperature = $1;
        }