array in hash erweitern (Allgemeines zu Perl)

[thread]15436[/thread]

array in hash erweitern

Leser: 27

Articles: hide open all | hide show old branches

+24 replies
jan99

2010-09-03 12:59
User since
2008-09-18
439 Artikel
BenutzerIn
HI !

ich habe ein hash bei dem als wert eine liste den wert darstellen soll und nun möchte ich die liste um werte ergänzen.

hierzu habe ich folgendes an code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

my %id_keys=(); for my $obj (@_) { for my $key ($obj->tags()->key_list()) { print "Wert: ".$key." - ".$obj->type.$obj->id()."\n"; %id_keys{$key} = push(%id_keys{$key},{$obj->type.$obj->id()}); } }
das problem liegt in der zeile
Code (perl): (dl )

%id_keys{$key} = push(%id_keys{$key},{$obj->type.$obj->id()});
der rest stammt nämlich aus einer anderen funktionierenden funktion.

kann mir einer den grund für das nichtfunktionieren aufzeigen?

gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +23 replies
- pq
  
  2010-09-03 13:42
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2010-09-03T10:59:27 jan99
  das problem liegt in der zeile
  
  Code (perl): (dl )
  
  %id_keys{$key} = push(%id_keys{$key},{$obj->type.$obj->id()});
  
  das sehe ich auch so.
  was soll die zeile tun? erstmal sollte man klarstellen: ist das perl5, was du hier willst?
  in perl5 schreibt man, um auf einen wert im hash %foo zuzugreifen, $foo{$key} und nicht %foo{$key}. letzteres kompiliert nämlich gar nicht. wie hast du das geschafft, dass perl das akzeptiert?
  
  ab hier nehme ich mal an, man schreibt es richtig:
  $id_keys{$key} = push $id_keys{$key}, {$obj->type . $obj->id()};
  
  nächstes problem: push erwartet als erstes argument ein array. du gibst ihm aber einen wert aus einem hash.
  lies mal http://p3rl.org/perlreftut und http://p3rl.org/perldsc
  
  ich vermute einfach mal, in $id_keys{$key} soll eine ~~hash~~arrayreferenz stehen. dann musst du die derefenzieren:
  
  $id_keys{$key} = push @{ $id_keys{$key} }, {$obj->type . $obj->id()};
  
  drittens habe ich ein problem damit, zu verstehen, was eine zuweisung an $id_keys{$key} soll, wenn du im gleichen statement der arrayref in $id_keys{$key} etwas zuweist. das macht die arrayreferenz komplett zunichte.
  vereinfacht:
  $aref = push @$aref, 23;
  mach dir das mal klar. du fügst der arrayref $aref einen neuen wert hinzu, die 23, und im selben statement weist du dann der arrayref das ergebnis des push zu. das ergebnis eines push ist in dem fall ~~die 23, also danach steht in $aref die 23~~ eine 1, und danach steht in $aref die 1 und es ist keine arrayref mehr.
  
  so und viertens habe ich keine ahnung, was das hier sein soll:
  {$obj->type . $obj->id()}
  { ... } erstellt eine hash-referenz, aber was du da drinhast, ist einfach nur ein zusammengesetzter skalar. was für einen sinn soll da ein hash haben?
  
  erklär vielleicht einfach mal in deutsch statt in perl, was du machen willst.
  wie du siehst, kann man als leser teilweise vielleicht erraten, was für fehler du gemacht hast, aber beim letzten problem wird dann echt unklar, was das eigentliche ziel war. das statement enthält mehr fehler als eigentlich funktionierenden code.
  
  edit: typos
  edit2: s/hash/array/, ergebnis von push
  Last edited: 2010-09-03 18:16:31 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +22 replies
  - jan99
    
    2010-09-03 15:00
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    hier in DEUTSCH (auf syntax habe ich jetzt einmal nicht geachtet:
    
    Es gibt ein Hash das wie folgt aussieht
    
    id_keys{value1} = ( "a", "b", "c", "d", "e")
    id_keys{value2} = ( "f", "g", "h", "i")
    ....
    
    jetzt soll bei id_keys{value2} ein Wert "Z" ergänzt werden sodass am Schluss es lautet:
    
    id_keys{value2} = ( "f", "g", "h", "i", "Z")
    
    Besser verständlich ??
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +21 replies
    - pq
      
      2010-09-03 15:06
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      warum schreibst du dann nicht einfach:
      push @{ $id_keys{$key} }, "Z";
      ?
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +20 replies
      - jan99
        
        2010-09-03 15:45
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        wenn Du sagst das geht so einfach !
        
        danke !
        
        gruß Jan .-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +19 replies
        
        jan99
        
        2010-09-06 18:49
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        ich muss dieses posting nochmal aufnehmen und fortsetzen.
        
        nun will ich auf die daten aus dem oben erstellten hash zugreifen und habe jetzt folgenden code:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        # Auflistung aller verwendeten Tags my @key_list=OsmPM_GetKeyList(@osm_data); my @key_id_list = OsmPM_GetKeyIdList(@osm_data); # <<< das ist das von oben! foreach my $keyname (@key_list) { # tag-count my @tags = $key_id_list{$keyname}; #<<< angemerkte zeile my $tag_count = scalar(@tags); }
        
        ich bekomme jetzt für die oben gekennzeichnete Zeile die Meldung:
        
        Quote
        Global symbol "%key_id_list" requires explicit package name at osm_poimaker_m
        
        Kann mir einer sagen warum - irgendwie klemmt es bei mir immer wieder an den typenbezeichnungen !
        
        gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +18 replies
        
        pq
        
        2010-09-06 19:18
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich hatte dir ja weiter oben perlreftut und perldsc verlinkt, hast du das mal durchgearbeitet?
        was liefert die funktion OsmPM_GetKeyIdList zurück? ein array? ein hash? eine arrayref? eine hashref?
        du sagst mit my @key_id_list = ... ein array. weiter unten versuchst du dann mit $key_id_list{$keyname} auf den hash %key_id_list zuzugreifen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +17 replies
        
        jan99
        
        2010-09-06 20:02
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        http://p3rl.org/perlreftut habe ich schon einmal gelesen.
        
        das andere dann heute nochmal !
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +16 replies
        
        jan99
        
        2010-09-07 08:55
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        gehe Moin !
        
        so nun bin ich fleißig gewesen, habe das tutrial durchgelesen und dennoch stehe ich vor einem dichten wald....
        
        nachfolgend beziehe ich mich auf xxxx mit der überschrift "hashes von arrays"
        
        das ist mein bisheriger und darin habe ich meine kommentare eingebaut:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        for my $key (sort keys %key_id_list) { # hier wird der hash-key ausgegeben - das ergebnis ist auch das erwartete print "key: ".$key."\n"; # jetzt sollen die array-daten des hash-keys ausgegeben werden # nach dem script kann man auf diese daten mit @{ $VARIABLE{$KEY} } zugegriffen werden # das @ ist für mich das kennzeichen das die daten als array zurückkommen und deshalb # würde ich for my @data (($key_id_list{$key}) schreiben # dieses führt jedoch zu einer fehlermeldung # die Dumper-ausgabe zeigt bei $data die erwarteten daten an for my $data ($key_id_list{$key}) { print Dumper($data); print "--> ".scalar($data)."\n"; # als nächstes werde ich dann eine schleife einbauen mit welcher # die daten des arrays ausgelesen werden können. } }
        
        kann mir einer sagen warum dennoch ebei der scalar-ausgabe folgendes kommt:
        
        --> ARRAY(0x3d1f194)
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +3 replies
        
        pq
        
        2010-09-07 09:19
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du hast die stelle richtig kommentiert und willst das @ doch an der falschen stelle anbringen.
        
        zitat:
        @{ $VARIABLE{$KEY} }
        
        wo muss das @ also hin?
        @{ $key_id_list{$key} }
        
        das ist doch die genaue entsprechung, nur der hashname und der keyname sind anders.
        
        du hast ein hash of arrays.
        
        $key ist der key. und $key_id_list{$key} ist der value dazu.
        da du ein hash of arrays hast, ist also der value eine arrayref.
        und über die willst du iterieren.
        
        warum soll $data nun wiederum eine arrayref sein? $data ist jeweils ein element der arrayref.
        man dereferenziert nicht bei der angabe der iterationsvariable.
        
        was du geschrieben hast:
        for my $data ($key_id_list{$key})
        
        iteriert über $key_id_list{$key} als eine einzige variable, nämlich einen skalar. die arrayref.
        da du sie nicht dereferenzierst, kann die schleife auch nur einmal durchlaufen. ist also sinnlos.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        jan99
        
        2010-09-07 10:08
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        sorry - aber jetzt verstehe ich nur noch bahnhof!
        
        ... aber aus deinen erklärenden worten bekomme ich keinen code zustande.
        
        könntest du mir das nochmal in perl übersetzen. dann verstehe ich das vielleicht besser.
        
        gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        renee
        
        2010-09-07 10:29
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Du hast in Deinem Post folgendes geschrieben:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        # jetzt sollen die array-daten des hash-keys ausgegeben werden # nach dem script kann man auf diese daten mit @{ $VARIABLE{$KEY} } zugegriffen werden # das @ ist für mich das kennzeichen das die daten als array zurückkommen und deshalb # würde ich for my @data (($key_id_list{$key}) schreiben # dieses führt jedoch zu einer fehlermeldung # die Dumper-ausgabe zeigt bei $data die erwarteten daten an }
        
        Wie schreibst Du denn normalerweise eine for-Schleife? (Machst Du ja anfangs auch richtig):
        
        Code (perl): (dl )
        
        1 2
        
        for my $SKALAR ( @ARRAY ) { }
        
        Und in dem Kommentar schreibst Du, dass Du folgendes versucht hast:
        
        Code (perl): (dl )
        
        1 2
        
        for my @ARRAY ( $SKALAR ) { }
        
        Der Wert eines Hashes ist *immer* ein Skalar. Den Wert des Hashes holst Du Dir in Deinem Beispiel mit $key_id_list{$key}.
        
        In Deinem Beispiel ist der Skalar eine Arrayreferenz.
        
        Jetzt verbinden wir das Wissen:
        
        1. Wir wissen, dass wir ein Array für die for-Schleife brauchen
        2. Wir wissen, dass wir aus dem Hash eine Arrayreferenz bekommen
        3. Wir wissen, wie wir aus einer Arrayreferenz ein Array bekommen
        
        Also machen wir im ersten Schritt
        
        Code (perl): (dl )
        
        1 2
        
        for my $SKALAR ( @{ $ARRAYREF } ) { }
        
        Das $ARRAYREF ersetzen wir noch mit dem Holen der Daten aus dem Hash:
        
        Code (perl): (dl )
        
        1 2
        
        for my $SKALAR ( @{ $key_id_list{$key} } ) { }
        
        Jetzt wollen wir nur noch die Laufvariable $data verwenden. Also
        
        Code (perl): (dl )
        
        1 2
        
        for my $data ( @{ $key_id_list{$key} } ) { }
        
        Also Dein Code:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        for my $key (sort keys %key_id_list) { # hier wird der hash-key ausgegeben - das ergebnis ist auch das erwartete print "key: ".$key."\n"; # jetzt sollen die array-daten des hash-keys ausgegeben werden for my $data ( @{ $key_id_list{$key} } ) { print Dumper($data); } }
        
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +12 replies
        
        renee
        
        2010-09-07 10:34
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2010-09-07T06:55:16 jan99
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        for my $data ($key_id_list{$key}) { print Dumper($data); print "--> ".scalar($data)."\n"; # als nächstes werde ich dann eine schleife einbauen mit welcher # die daten des arrays ausgelesen werden können. }
        
        kann mir einer sagen warum dennoch ebei der scalar-ausgabe folgendes kommt:
        
        --> ARRAY(0x3d1f194)
        
        Gruß Jan :-)
        
        In $data steckt eine Arrayreferenz. Wenn Du auf eine Arrayreferenz ein scalar verwendest, bekommst Du wieder die Referenz zurück. Also ist Deine print Zeile äquivalent zu print "--> " . $data . "\n".
        
        Durch die String-Konkatenation wird die Arrayreferenz "stringifiziert". Bei der Stringifizierung einer Referenz bekommst Du immer den Typ der Referenz (das was Du auch bei ref() bekommen würdest) und die Adresse in Hex zurück.
        
        Probier mal:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $hashref = {}; my $arref = []; my $scalarref = \''; print "$hashref $arref $scalarref";
        
        Dann bekommst Du so etwas in der Art:
        
        Quote
        HASH(0x8153c28) ARRAY(0x81545f4) SCALAR(0x8154660)
        
        Die "" bewirken auch eine Stringifizierung.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +11 replies
        
        jan99
        
        2010-09-07 10:53
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        erst einmal wieder vielen dank für diese sehr ausführliche darstellung.
        
        nun habe ich in dem ref-tutorial nochmal nachgeschaut und wegen dem zugriff auf referenzen von arrays versucht etwas rauszubekommen.
        
        folgendes habe ich mir daraus zusammengereimt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        for my $data ( @{ $key_id_list{$key} } ) { print Dumper($data); for my $dat (@{$data}) { print "----->".$dat."\n"; } }
        
        //modedit GwenDragon: CODE-Tags
        
        bekomme aber die meldung das $dat jetzt ein string ist - eben der inhalt des arrays. das wird also immer noch etwas anders interpretiert als ich mir das vorstelle.
        
        wenn ich aber eines bisher aus dem ganzen gezogen habe - alles ziemlich verstrickt mit den refenenzen.
        
        bin gespannt wann der groschen fällt.
        
        gruß Jan :-)
        Last edited: 2010-09-07 12:24:14 +0200 (CEST)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +10 replies
        
        renee
        
        2010-09-07 11:16
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Zeig doch mal was print Dumper $data ausgibt...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +9 replies
        
        jan99
        
        2010-09-07 11:53
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        here the message:
        
        Quote
        1key: addr:city
        $VAR1 = 'Node601390537';
        Can't use string ("Node601390537") as an ARRAY ref while "strict refs" in use at osm_poimaker_main.p
        m line 323.
        Drücken Sie eine beliebige Taste .
        . .
        
        gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +8 replies
        
        renee
        
        2010-09-07 13:12
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Dumper zeigt Dir ja, dass das ein String ist. Ich gehe mal davon aus, dass Dein Ursprungshash ungefähr so aussieht:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        %key_id_hash = ( city => [ 'Node601390537', 'Node601390538', ], anderes => [ 'Node601390539', ], );
        
        Mit der ersten for-Schleife iterierst Du über die Schlüssel des Hashs (hier: city und anderes. In der Schleife hast Du eine zweite for-Schleife, in der Du für jede Arrayreferenz (passend zu dem Hashschlüssel) über jedes Element der Arrayreferenz iterierst.
        
        Wenn Du etwas anderes brauchst, musst Du die Subroutine OsmPM_GetKeyIdList anpassen, weil die Dir ja den Hash zusammenbaut.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +7 replies
        
        jan99
        
        2010-09-07 13:28
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        .... und genau die werte "Node601390537".... will ich weiterverwenden.
        
        irgendwie muss man an diese doch rankommen. der aufbau kann ansosten so bleiben.
        
        gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +6 replies
        
        renee
        
        2010-09-07 13:43
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Du musst einfach auf die for-Schleife verzichten, die den Fehler verursacht. An der Stelle, an der Du print Dumper $data verwendest, bist Du schon in der Ebene, in der Du den String verwenden kannst...
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        for my $key (sort keys %key_id_list) { # hier wird der hash-key ausgegeben - das ergebnis ist auch das erwartete print "key: ".$key."\n"; # jetzt sollen die array-daten des hash-keys ausgegeben werden for my $data ( @{ $key_id_list{$key} } ) { print $data; # oder sonstige Weiterverwendung von 'Node1355634'; } }
        
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +5 replies
        
        Gast wer
        
        2010-09-07 14:02
        
        Es kann doch auch sein dass er einen Scalaren Eintrag zwischen den ganzen Arrays hat.
        
        Oder er glaubt er hätte irgendwo anders so was gemacht:
        
        Code (perl): (dl )
        
        $wert=[$node,$id];
        
        In Wirklichkeit aber:
        
        Code (perl): (dl )
        
        $wert=$node.$id;
        
        Und nun glaubt er er hätte ein Array.
        Last edited: 2010-09-07 14:18:20 +0200 (CEST)
        
        renee
        
        2010-09-07 14:45
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        jan99 hat aber die Struktur, die ich vermutet habe, bestätigt und auch die Codestelle, an der der Fehler auftritt, spricht für meine Vermutung ;)
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +3 replies
        
        jan99
        
        2010-09-07 14:52
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        ich bin mir schon darüber bewußt das die daten als
        
        Quote
        $wert=$node.$id;
        
        vorliegen !!!!!
        
        die keys werden mir ja auch richtig ausgegeben - das problem ist weiterhin nur das ich mir die daten aus dem zugehörigen array irgendwie nicht ausgeben lassen kann.
        
        bezogen auf das beispiel würde aus ...
        
        Code: (dl )
        
        1 2 3 4
        
        city => [ 'Node601390537', 'Node601390538', ],
        
        jetzt die ausgabe
        
        Quote
        Node601390537
        Node601390538
        
        kommen !
        
        gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +2 replies
        
        renee
        
        2010-09-07 15:14
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Hast Du meinen Post msg #141248 gesehen?
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        jan99
        
        2010-09-07 15:17
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hallo!
        
        sorry den habe ich übersehen - das ergebnis sieht doch schon gut aus.
        
        ich danke euch allen für die geduld.
        
        +10
        
        gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2010-09-03 12:59.