#!/usr/bin/perl -w

# Array Variablensetzung aus ipcs Kommand
chop(@ipcs = `/usr/bin/ipcs`);

foreach $line (@ipcs) {
        if ( $line =~ /^m/ ) {     # Suche nach Zeile die mit "m" beginnt
           for ($line) {
           ($Nix, $Interesting) = split (/ +/, $_);     # Nimm erste Zahl
           system("/usr/bin/ipcrm -m $Interesting");   # Fuehre das Loeschen aus
           }
        }
        if ( $line =~ /^s/ ) {
           for ($line) {
           ($Nix, $Interesting) = split (/ +/, $_);
           system("/usr/bin/ipcrm -s $Interesting");
           }
        }

}
