#!/usr/bin/perl
# Written by ikorolev v1.1 2010.06.09
# http://tools.unixpin.com
# This script show dependence between sd,ssd or dad disk number and cXtXdX path.
# Addiditionaly it show Device ID and serial number of disks.


@S=split("\n",`/usr/bin/iostat -Ei`);
foreach (@S) {
        $device=$1 if(/^(\S+)\s+Soft\s+Errors:/);
        $DeviceID{$1}=$device if(/Device\s+Id:\s+(\S+)\s+$/);
}

@S=split("\n",`/usr/bin/iostat -En`);
foreach (@S) {
        $device=$1 if(/^(\S+)\s+Soft\s+Errors:/);
        $DeviceSN{$device}=$1 if(/Serial\s+No:\s+(\S+)\s+$/);
}

print "Device\tDriver\tDevice SN\tDevice ID\n";
@S=split("\n",`/usr/bin/iostat -Eni`);
foreach (@S) {
        $device=$1 if(/^(\S+)\s+Soft\s+Errors:/);
        print "$device\t$DeviceID{$1}\t$DeviceSN{$device}\t$1\n" if(/Device\s+Id:\s+(\S+)\s+$/ and $DeviceID{$1} );
}