#!/usr/bin/perl

$raidtab = "/etc/raidtab";

## /etc/raidtab oeffnen und devices in temporaeres Array schreiben
open(RAIDTAB, $raidtab) || die "Unable to read from /etc/raidtab : $!";
while(<RAIDTAB>)
{
foreach $device (split(/ |raiddev|device/,$_)) {
#print $device;
           if ($device =~ m/dev\/md/ig) {
              push (@md_s, "$device");
      }
           elsif ($device =~ m/dev\/[a-z]d[a-z][0-9]/ig) {
              push (@disks, "$device"); }
   }
}
close (RAIDTAB);

#print @md_s; #Debug
#print @disks; #Debug

$how_many_disks_do_we_have_here = $#disks;
#print "\n$how_many_disks_do_we_have_here\n"; #Debug

for ($i=0; $i <= $how_many_disks_do_we_have_here; $i++) {
   $o = $i + 2;
   $temp = $disks[$i];
      if ($o/2==true) {
         push (@related_disks[$o], $temp, $disks[$o]);
         }
}