Liste von Hashs in einem Array (Allgemeines zu Perl)

[thread]19870[/thread]

Liste von Hashs in einem Array

Tags: perl5 hash Array Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+4 replies

Gast jan

2015-11-04 17:01

Hallo!

Bisher hatte ich ein solches Array:

Code: (dl )

@mainArray => [
	{
		'categoryName' => 'Freizeit & Sport', 
		'categoryUrl' => 'list.cgi?category=12'
	},
	{
		'categoryName' => 'Camping', 
		'categoryUrl' => 'list.cgi?category=23'
	}
];

Das habe ich in einer Schleife, die über eine Liste von Kategorien geht, wie folgt zusammengebaut:

Code: (dl )

	
foreach $catId (@catIds) {									   
push(@mainArray, {	
				'categoryName' => $catNames{$catId}, 
				'categoryUrl' =>  "list.cgi?category=" . $catId
			})
}

Nun möchte ich aber, dass das @mainArray eine Liste von Hashs beinhaltet: @mainArray = [[%subArray1], [%subArray2], [%subArray...]]

Die Subarrays sollen aussehen, wie oben, nur eben soll es mehrere davon geben:

Code: (dl )

%subArray1 = {
		'categoryName' => 'Freizeit & Sport',
		'categoryUrl' => 'list.cgi?category=12'
	},
	{
		'categoryName' => 'Camping',
		'categoryUrl' => 'list.cgi?category=23'
	}

%subArray2 = {
		'categoryName' => 'Ferien & Reisen',
		'categoryUrl' => 'list.cgi?category=15'
	},
	{
		'categoryName' => 'Hotel/Pension',
		'categoryUrl' => 'list.cgi?category=22'
	}

Ich versuche jetzt in einer Schleife die einzelnen SubArrays zusammenzubauen und die dann in das @mainArray reinzuschreiben:

Code: (dl )

		
foreach (...) {
foreach $catId (@catIds) {									   
push(@subArray, {	
				'categoryName' => $catNames[$catId}, 
				'categoryUrl' =>  "list.cgi?category=" . $catId
			})
}
push(@mainArray, @subArray)
}

Am Ende habe ich dann aber nur das @mainArray, wo alle subArrays hintereinanderweg geschrieben stehen.
Ich komme nicht dahinter, wie ich das zusammenbauen muss.

Oh je, versteht einer, was ich möchte? :)
Und wenn ja, kann mir bitte jemand einen Denkanstoss geben?

Danke!
Last edited: 2015-11-04 17:45:56 +0100 (CET)

Linuxer

2015-11-04 17:51
User since
2006-01-27
3881 Artikel
HausmeisterIn
Du packst am Ende mit push(@mainArray, @subArray) den Inhalt, also die einzelnen Elemente, aus @subArray in @mainArray. Dabei verlierst Du natürlich das Sub-Array. Du musst @subArray als Referenz ins @mainArray packen.

Damit @subArray für jeden Datensatz ein individuelles Array wird, sollte es erst innerhalb der Schleife deklariert werden.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

foreach (...) { foreach $catId (@catIds) { # make a new subArray individual every time my @subArray; push( @subArray, { 'categoryName' => $catNames[$catId}, 'categoryUrl' => "list.cgi?category=" . $catId, }, ); } # push the reference push @mainArray, \@subArray; }
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
+2 replies

hlubenow

2015-11-05 00:42

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Bei allzu komplexen AoA/HoH-Konstruktionen bau' ich mir lieber eine Klasse / ein Objekt. Wenn man das Prinzip einmal verstanden hat, kann man damit viel leichter umgehen.
Last edited: 2015-11-05 00:52:22 +0100 (CET)

hlubenow

2015-11-07 00:14

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Hier nochmal ein Beispiel mit "Category"-Objekten, die Du dann in ein Array packen kannst:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

package Category;

    sub new {
        my $classname = shift;
        my $args = {@_}; 
        my $self = { name     => $args->{name},
                     url      => $args->{url} };
        $self->{url} = "list.cgi?category=" . $self->{url};
        return bless($self, $classname);
    }

    sub getName {
        my $self = shift;
        return $self->{name};
    }

    sub getUrl {
        my $self = shift;
        return $self->{url};
    }

package main;
my @names = ('Freizeit & Sport', 'Camping', 'Ferien & Reisen',
             'Hotel/Pension');
my @urls  = (12, 23, 15, 22);

my @categories = ();
my $i;
for ($i = 0; $i <= $#names; $i++) {
    push(@categories, Category->new(name => $names[$i],
                                    url  => $urls[$i]));
}

foreach $i (@categories) {
    print "Name: " . $i->getName(). "\n";
    print "Url: " . $i->getUrl(). "\n";
    print "\n";
}

View all threads created 2015-11-04 17:01.