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 |
$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 |
$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
}
} |
<#
.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 |
$f = Get-2DSpielfeld -XSize 20 -YSize 20
$f[0,0
