Der Umgang mit Arrays besitzt bei der PowerShell seine Eigenheiten. Auf der seinen Seite genial einfach und komfortabel, doch sobald es um mehrdimensionale Arrays geht lässt der Komfort etwas nach und es wird speziell.

Eines gleich vorweg: Wer bislang eine Programmiersprache oder eine traditionelle Skriptsprache wie VBScript (WSH) verwendet hat und es einfach gewohnt ist mit zweidimensionalen Arrays zu arbeiten, z.B. um tabellarische Daten abbilden zu können: In 95% alle Fälle ist ein simples Array, das per [PSCustonmObject] angelegte Werte aufnimmt, die beliebige Werte aufnehmen, die deutlich einfachere und vor allem Powershell-typische Variante.

Da man aber niemand zwingend sollte, eine vertraut gewordene Gewohnheit aufgeben zu müssen, lassen sich zwei- oder mehrdimensionale Arrays auch bei PowerShell anlegen. Zwei Dinge muss man wissen: Wie ein mehrdimensionales Array angelegt und wie ein mehrdimensionales Array von einer Function zurückgegeben wird.

Mehrdimensionale Arrays anlegen

Ein mehrdimensionales Array wird per New-Object-Cmdlet angelegt. Da das Cmdlet offenbar mit der [,]-Schreibweise nicht klar kommt, muss die Typbezeichnung in Apostrophen gesetzt werden – dadurch fallen aber die äußeren eckigen Klammern weg.

Der folgende Befehl legt ein zweidimensionales Array mit 10 Feldern in der ersten und 2 Feldern in der zweiten Dimension an.

$Feld = New-Object -TypeName "Byte[,]" -ArgumentList 10,2

Der folgende Befehl legt ein dreidimensionales Array mit 2 Feldern in jeder Dimension an.

$Feld = New-Object -TypeName "Byte[,,]" -ArgumentList 2,2,2
$Feld[0,0,0] = 1
$Feld

Die Rank-Eigenschaft gibt die Anzahl der Dimensionen an. Per GetLength-Methode erhält man die Größe einer einzelnen Dimension.

Ein mehrdimensionale Array in einer Function zurückgeben

Soll eine Function ein mehrdimensionale Array zurückgeben, muss dem Ausdruck bzw. der Variablen einfach ein Komma vorangestellt werden.

Ein Algorithmus für das Belegen eines Schiffe versenken-Spielfeldes

Ein genialer Algorithmus, der ein zweidimensionales Feld für ein Schiffe versenken-Spiel mit Schiffen belegt und dabei darauf achtet, dass sich keine „Verbände“ überlappen bzw. die Spielfeldgrenzen berücksichtigt werden.

Eine Erklärung folgt in Kürze – bei Fragen einfach fragen;)

<#
 .Synopsis
 Returning a two dimensional array
#>

function Get-2DSpielfeld
{
    [CmdletBinding()]
    param([Byte]$XSize=10,[Byte]$YSize=10,[Switch]$ShowOutput)
    $Schiffe = New-Object -TypeName "Bool[,]" -ArgumentList $XSize,$YSize
    $Flotte = 4,3,3,2,2,2,1,1,1,1
    foreach($Verband in $Flotte)
    {
        do
        {
            Write-Verbose "Versuche Verband mit $Verband Schiffen zu platzieren"
            $x = 0..9 | Get-Random
            $y = 0..9 | Get-Random
            # Bedingung 1: Freie Schiffe in der Horizontalen
            $Bedingung1 = $x + $Verband -ge $XSize
            if (!$Bedingung1)
            {
                @($x..($x+$Verband-1)).ForEach{$Bedingung1+=$Schiffe[$_, $y]}
            }
            # Bedingung 2: Freie Schiffe in der Vertikalen
            $Bedingung2 = $y + $Verband -ge $YSize
            if (!$Bedingung2)
            {
                @($y..($y+$Verband-1)).ForEach{$Bedingung2+=$Schiffe[$x, $_]}
            }
        } until ($Bedingung1 -eq 0 -or  $Bedingung2 -eq 0)
        # Flotte belegen
        if ($Bedingung1 -eq 0)
        {
            # In der Horizontalen belegen
            @($x..($x+$Verband-1)).ForEach{$Schiffe[$_, $y] = $true}
            Write-Verbose "Verband mit $Verband Schiffen bei $x/$y platziert."
        } elseif ($Bedingung2 -eq 0)
        {
            # In der Vertikalen belegen
            @($y..($y+$Verband-1)).ForEach{$Schiffe[$x, $_] = $true}
            Write-Verbose "Verband mit $Verband Schiffen bei $x/$y platziert."
        }
    }
    # 2D-Array ausgeben
    if ($ShowOutput)
    {
        for($i=0; $i -lt $XSize; $i++)
        {
            $Outline = ""
            for($j=0; $j -lt $YSize; $j++)
            {
                $Outline += "$((' ','X')[$Schiffe[$i,$j]]) "
            }
            "$Outline`n"
        }
    }
    else
    {
        # Auf diese Kleinigkeit kommt es an
        ,$Schiffe
    }
}

$f = Get-2DSpielfeld -XSize 20 -YSize 20
$f[0,0