The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

STEVEB / RPi-DHT11-EnvControl-0.06 / examples / perlsub.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14

              
use warnings;
use strict;
use RPi::DHT11::EnvControl;
use constant {
    SENSOR_PIN => 4,
    FAN_PIN => 1,
    HUMIDIFIER_PIN => 6,
};
my $env = RPi::DHT11::EnvControl->new(dht_pin => SENSOR_PIN);
sleep 10;