#!/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\//ig) {
              push (@raid_tab, "$device");
      }
   }
}
close (RAIDTAB);

##raiddevices(md0, etc.) in eigenes Array schreiben (das koennte man wahrscheinlich im ersten Block bereits handlen...)
foreach $raiddev (@raid_tab) {
           if ($raiddev =~ m/md/ig) {
              push (@raids, "$raiddev");
      }
   }