#! /usr/bin/perl

# hipiI2Cscanner.pl - Scan the I2C Bus for active devices
#                     using the HiPi Raspberry Pi Perl Library
#                     Documentation at https://raspberry.znix.com/
#
# James M. Lynes, Jr. - KE4MIQ
# Created:       June 28, 2020
# Last Modified: 08/28/2020 - Initial test version
#                08/29/2020 - Change to printf to print address in Hex

use strict;
use warnings;

use HiPi qw( :i2c );
use HiPi::Device::I2C;

$SIG{INT} = \&trapcc;                           # Trap CTRL-C Signal

my $dev = HiPi::Device::I2C->new();             # Create I2C Object

my @attached = $dev->scan_bus();                # Scan I2C bus for
                                                #     attached devices

print "\nI2C Bus Scanner\n";                    # List found devices
print "===============\n";
foreach my $addr(@attached) {
    printf "Found address: %x\n", $addr;
}
print "Done...\n";


sub trapcc{
    die "Terminated by CTRL-C Signal\n\n";      # Kill the script
}