Sahanya

Nachdem Arrays hier vorgestellt wurden, jetzt einige praktische Beispiele:

Für alle folgenden Beispiele gilt @sahanya = 0, 10, 20, 30:

Werte zuweisen:

@perun = 4, @sahanya, 5 # @perun = 4, 0, 10, 20, 30, 5
@sahanya = @perun = (12, 24) # die Arrays erhalten beide die Werte 12 und 24
($sahanya, $perun) = ($perun, $sahanya) # die Arrays tauschen ihre Werte
@sahanya = <STDIN> # @sahanya = „Eingabe”

Werte ändern:

$sahanya[0] = 100 # @sahanya = 100, 10, 20, 30
$sahanya[0]++ # @sahanya = 1, 10, 20, 30
$sahanya[0] +=4 # @sahanya = 4, 10, 20, 30
@sahanya[0,1] = @sahanya[1,0] # @sahanya = 10, 0, 20, 30
@sahanya[0,1] = @sahanya[2,2] # @sahanya = 20, 20, 20, 30
@sahanya[0,1] = (80, 40) # @sahanya = 80, 40, 20, 30

@perun = reverse @sahanya # @perun = 30, 20, 10, 0
@perun = sort @sahanya # @perun = 0, 10, 20, 30 (sortiert nach ASCII-Zeichen,
hier zufällig die gleiche; aber bei @sahanya = 1, 4, 30 dann @perun = 1, 30, 4

Werte hinzufügen:

$sahanya[5] = 99 # @sahanya = 0, 10, 20, 30, undef, 99
push (@sahanya, 200) # @sahanya = 0, 10, 20, 30, 200
push (@sahanya, 88, 25) # @sahanya = 0, 10, 20, 30, 88, 25
unshift (@sahanya, 55) # @sahanya = 55, 0, 10, 20, 30
unshift (@sahanya, 55, 15)# @sahanya = 55, 15, 10, 20, 30

Werte entfernen:

$a = pop(@sahanya) # @sahanya = 0, 10, 20 (Variablenname spielt keine Rolle)
$a = shift (@sahanya) # @sahanya = 10, 20, 30 (Variablenname spielt keine Rolle)

Auf Arrays zugreifen:

($a) = @sahanya # $a = 0 ( $a erhält das erste Element von @sahanya)
($a, $b) = @sahanya # $a = 0 und $b = 10
$a = @sahanya # $a = 4 ($a erhält die Anzahl der Elemente von @sahanya)
$a = $sahanya[1] # $a = 10
$a = $sahanya[6] # $a = undef (es gibt nur die Werte 0 bis 3)
$a = $sahanya[-2] # $a = 20 (es wird von hinten gezählt)
$a = $#sahanya # $a = 3 (gibt den Index des letzten Wertes aus)
$a = $sahanya[$#sahanya] # $a = 30
$a = "Du bist $sahanya[1] Jahre alt." # $a = “Du bist 10 Jahre alt.”

Andere Perl-Themen