grove-probe

#!/usr/bin/env perl
my $devices = `i2cdetect -y -r 2`;
#print $devices;
my @lines = split /\n/, $devices;
foreach my $line ( @lines ) { 
    next if $line =~ /^\s/; # skip lines starting with whitespace
    $line =~ s/\d\d\:\s*//; # remove 2 digit indexes
    #print $line , "\n";
    my @entries = split /\s/, $line;
    foreach my $entry ( @entries ) { 
        next if $entry =~ /\-\-/; # skip entries that that are "--"
        print $entry , "\n";
    }
}