Miscellany

#!/usr/bin/perl

#
#sample of some of the output
#
#k8temp-pci-00c3
#Adapter: PCI adapter
#Core0 Temp:
#             +42 C
#
#k8temp-pci-00cb
#Adapter: PCI adapter
#Core0 Temp:
#             +42 C

my $sensors="/usr/bin/sensors";
open ( SENSORS, "$sensors |") || die "Cannot run sensors\n";
my $input;
{
    local $/;
    $input = <SENSORS>;
}
while( $input =~ /^k8temp-pci-00c3(.*?)^k8temp-pci-00cb/sm ){
    print "Match:$1\n";
}