{"id":69,"date":"2001-01-01T13:14:40","date_gmt":"2001-01-01T11:14:40","guid":{"rendered":"http:\/\/www.hermione.de\/blog\/?p=69"},"modified":"2008-02-21T23:38:59","modified_gmt":"2008-02-21T21:38:59","slug":"arrays-und-hashes-perl","status":"publish","type":"post","link":"http:\/\/blog.hermione.de\/?p=69","title":{"rendered":"arrays und hashes [perl]"},"content":{"rendered":"

Array @liste<\/h4>\n\n\n\n\n
$liste[-1]<\/th>\ndas letzte Element der Liste<\/td>\n<\/tr>\n
$#liste<\/th>\nmaximaler Index \/ Anzahl der Felder -1<\/td>\n<\/tr>\n
$anzahl = @liste<\/th>\nAnzahl der Felder<\/td>\n<\/tr>\n<\/table>\n

push, unshift, shift, pop<\/h4>\n\n\n\n\n\n
push(@liste, „xyz“)<\/th>\n„xyz“ wird hinten angehaengt<\/td>\n<\/tr>\n
unshift(@liste,“abc“)<\/th>\n„abc“ wird vorne eingefuegt<\/td>\n<\/tr>\n
$x = shift(@liste)<\/th>\nvorderstes Element („abc“) wird entfernt und in die Variable $x geschrieben<\/td>\n<\/tr>\n
$x = pop(@liste)<\/th>\nhinterstes Element („xyz“) wird entfernt und in die Variable $x geschrieben<\/td>\n<\/tr>\n<\/table>\n


\n@osterei
\n$ei->{„name“} = „giftgr\u00fcnes Osterei“;
\n$ei->{„img“} = „http:\/\/www.remote-island.org\/142291\/ggO.gif“;
\npush(@osterei,$ei);
\nwhile (scalar(@osterei)) {
\n$ei = shift(@osterei);
\n… }<\/em><\/p>\n

<\/p>\n

split, join<\/h4>\n\n\n\n
$string = „das ist ein satz“;<\/nobr>
\n@words = split(\/ \/, $string);<\/nobr><\/th>\n		$string wird aufgesplittet;
\nTrenner ist das Leerzeichen<\/td>\n<\/tr>\n
@letters = („a“, „b“, „c“); <\/nobr>
\n$string = join(„_“, @letters);<\/nobr><\/th>\n		die Elemente des Arrays @letters werden zu „a_b_c“ zusammengesetzt<\/td>\n<\/tr>\n<\/table>\n

Mehrdimensionales Array<\/h4>\n

@liste1 = („a“, „b“, „c“);
\n@liste2 = („k“,“l“, @liste1); # entspricht („k“, „l“, „a“, „b“, „c“)
\n@liste3 = („k“,“l“, [@liste1]); # 3. Element ist wiederum Liste<\/p>\n

Hash %hash<\/h4>\n\n\n\n\n
$hash{„key“} = „value“;<\/th>\n <\/td>\n<\/tr>\n
keys(%hash)<\/th>\nerzeugt Liste der Keys des Hashes<\/td>\n<\/tr>\n
values(%hash)<\/th>\nerzeugt Liste der Values des Hashes<\/td>\n<\/tr>\n<\/table>\n


\nforeach $key keys(%hash) {
\nprint „$value = $hash{$key}\\n“;
\n}<\/em><\/p>\n

exists != defined<\/h4>\n\n\n\n\n\n\n
if (exits $ei{„name“}) …<\/th>\nAbfrage ob der Hash-Key „name“ in %ei vorkommt.<\/td>\n<\/tr>\n
if (defined $ei{„name“}) …<\/th>\nEin existierender Hash-Eintrag muss nicht definiert sein<\/td>\n<\/tr>\n
delete $ei{„name“};<\/th>\nloescht den Eintrag, d.h. er existiert dann nicht mehr!<\/td>\n<\/tr>\n
$ei{„name“} = „“;<\/th>\nder Eintrag exisitert dann immer noch<\/td>\n<\/tr>\n
%ei = ();<\/th>\nloescht alle Eintraege<\/td>\n<\/tr>\n<\/table>\n

Vorsicht exists boese<\/h4>\n

exists legt $h{1} an, wenn man $h1{1}{2} abfragt:<\/p>\n


\n#! \/usr\/bin\/perl
\nuse strict;
\nuse warnings;
\nuse Data::Dumper;<\/p>\n

my %h = ();
\nprint Data::Dumper->Dump([\\%h],[‚*h‘]);
\nif(exists $h{‚1‘}) { print „jau\\n“; }
\nprint Data::Dumper->Dump([\\%h],[‚*h‘]);
\nif(exists $h{‚1‘}{‚2‘}) { print „jau\\n“; }
\nprint Data::Dumper->Dump([\\%h],[‚*h‘]);
\nif(exists $h{‚1‘}) { print „jau\\n“; }
\n<\/em><\/p>\n

Verschachteltes Hash %zahl<\/h4>\n

Der Value-Eintrag des Hashes %zahl ist wiederum ein Hash<\/p>\n\n\n
$zahl{$ref}{$url}
\n$zahl{$url}{$ref}<\/th>\n		sind \u00e4quivalent<\/td>\n<\/tr>\n<\/table>\n


\n$zahl{$url}{$ref}++;
\nforeach $ref (keys(%zahl)) {
\nforeach $url (keys(%{$zahl{$ref}})) {
\n$gesamt += $zahl{$ref}{$url};
\nprint „von $ref nach $url: $zahl{$ref}{$url} Besucher\\n“;
\n}
\n}
\nprint „gesamt = $gesamt \\n“;<\/em><\/p>\n

Verknuepfung ohne Verschachtelung von url und ref zu string mit * als Trennzeichen<\/p>\n

$zahl{$ref.“*“.$url}++;<\/em><\/p>\n

Verschachteltes Hash %hash<\/h4>\n

Der Value-Eintrag ist wieder ein Hash.
\nDie unteren Value-Eintraege sind verschieden: Skalare oder Arrays.<\/p>\n\n\n\n\n\n\n
%{$hash{„sm“}}<\/th>\nvalue zum key ist wieder eine hash-table<\/td>\n<\/tr>\n
$hash{„sm“}{„zahl“}<\/th>\nein Value des inneren Hash<\/td>\n<\/tr>\n
$hash{„sm“}{„liste“}<\/th>\nein anderer Value des inneren Hash ist ein Array<\/td>\n<\/tr>\n
@{$hash{„sm“}{„liste“}}[0]<\/th>\nder erste Wert dieses Arrays<\/td>\n<\/tr>\n
push(@{$hash{„sm“}{„liste“}}, $blub);<\/nobr><\/th>\nEintrag von $blub in diese Liste. wird mit push hinten angeh\u00e4ngt<\/td>\n<\/tr>\n<\/table>\n

Verschachteltes Hash %hash<\/h4>\n

Der Value Eintrag des Hashes ist ein Array.<\/p>\n\n\n\n\n\n
@{$hash{„blub“}} = („a“, „b“, „c“);<\/th>\n <\/td>\n<\/tr>\n
push (@{$hash{„blub“}}, „d“);<\/th>\n <\/td>\n<\/tr>\n
@{$hash{„blub“}}[$i]<\/th>\n <\/td>\n<\/tr>\n
$hash{„blub“}->[$i]<\/th>\n <\/td>\n<\/tr>\n<\/table>\n

Hash- und Array-Referenzen<\/h4>\n

Die Referenz enth\u00e4lt den Namen des Hashes bzw. des Arrays.
\nDavorsetzen des $-Zeichens bewirkt, dass das Hash bzw. das Array „direkt“ angesprochen wird.<\/p>\n\n\n\n\n\n\n
$h{„blub“}<\/th>\n$h->{„blub“} bzw. $$h{‚blub‘}<\/td>\n<\/tr>\n
$a[0]<\/th>\n$a->[0] bzw. $$a[0]<\/td>\n<\/tr>\n
foreach(keys(%h)){…}<\/th>\nforeach(keys(%$h)){…}<\/td>\n<\/tr>\n
for($i=0; $i< =$#a; $i++) {…}<\/th>\nfor($i=0; $i< =$#$a; $i++) {…}<\/td>\n<\/tr>\n
for($i=0; $i< =@a; $i++) {…}<\/th>\nfor($i=0; $i< =@$a; $i++) {…}<\/td>\n<\/tr>\n<\/table>\n


\n#!\/usr\/bin\/perl
\nuse Storable “dclone;
\n$hash{‚huhu‘} = {‚gaga‘};
\ngibHashAus(\\%hash);
\n<\/em><\/p>\n\n\n
hallo(\\@a);<\/strong>
\nsub hallo{
\nmy ($array) = @_;
\n$blub = $array->[13];
\nforeach $i (@$array) {…}
\n}
\n<\/em><\/td>\n		hallo(\\%h);<\/strong>
\nsub hallo{
\nmy ($hash) = @_;
\n$blub = $hash->{„name“};
\nforeach $i (keys(%$h) {…}
\n}
\n<\/em><\/td>\n<\/tr>\n<\/table>\n","protected":false},"excerpt":{"rendered":"

Array @liste $liste[-1] das letzte Element der Liste $#liste maximaler Index \/ Anzahl der Felder -1 $anzahl = @liste Anzahl der Felder push, unshift, shift, pop push(@liste, „xyz“) „xyz“ wird hinten angehaengt unshift(@liste,“abc“) „abc“ wird vorne eingefuegt $x = shift(@liste) vorderstes Element („abc“) wird entfernt und in die Variable $x geschrieben $x = pop(@liste) hinterstes […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"_links":{"self":[{"href":"http:\/\/blog.hermione.de\/index.php?rest_route=\/wp\/v2\/posts\/69"}],"collection":[{"href":"http:\/\/blog.hermione.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.hermione.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.hermione.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.hermione.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=69"}],"version-history":[{"count":0,"href":"http:\/\/blog.hermione.de\/index.php?rest_route=\/wp\/v2\/posts\/69\/revisions"}],"wp:attachment":[{"href":"http:\/\/blog.hermione.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=69"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.hermione.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=69"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.hermione.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=69"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}