hipi-temp-ds.pl

#!/usr/bin/env perl

use strict;
use warnings;
use HiPi::Device::OneWire;

my @devices = HiPi::Device::OneWire->list_slaves();
for my $w1 ( @devices ) {
    for ( qw( id family name description ) ) {
        print qq($_ = $w1->{$_}\n);
    }
    my $data = HiPi::Device::OneWire->read_data( $w1->{id} );
    process($data);
}

sub process {
    my $data = shift;
    my @lines = split /\n/, $data;
    if ($lines[0] !~ m/YES/){
        print "CRC Error:\n$data\n";
    }
    else {
        print "Temp is ", get_temp($lines[1]), "\n";
    }
}

sub get_temp {
    my $text = shift;
    ( my $raw ) = $text =~ m/t=(\d+)/;
    my $temp_c = $raw / 1000.0;
    return $temp_c;
}