Array und Werte - das verstehe ich mal wieder gar nicht... (Allgemeines zu Perl)

[thread]19376[/thread]

Array und Werte - das verstehe ich mal wieder gar nicht...

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+10 replies
jan99

2014-11-10 13:50
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich habe eine Blackliste von Namen definiert:
Code (perl): (dl )

my @blackliste_gang_ohne_adress = ('Pergamentmachergang','Adler-Gang','Aegidienhof');
Nun gibt es eine Schleife bei welcher Namen auf Vorhandensein in der Blackliste geprüft werden sollen:
Code (perl): (dl )

1 2 3 4 5

for (sort keys %gang_with_no_adress){ if ($gang_with_no_adress{$_} == 0 && in_array(@blackliste_gang_ohne_adress,$_) == 1){ $gang_with_no_adress{$_} = -1; } }#end-foreach
und die Prüffunktion lautet:
Code (perl): (dl )

1 2 3 4 5 6

sub in_array { my ($arr,$search_for) = @_; my %items = map {$_ => 1} @$arr; # Zeile 1594 return (exists($items{$search_for}))?1:0; }
Wenn ich das ganze ausführe bekomme ich die Fehlermeldung:

Quote
Can't use string ("Pergamentmachergang") as an ARRAY ref while "strict refs" in
use at C:/strawberry/perl/lib/OSM/osm_jt.pm line 1594.

Wobei mir eine Dumper-Meldung:

Quote
$VAR1 = 'Pergamentmachergang';
$VAR2 = 'Adler-Gang';
$VAR3 = 'Aegidienhof';

liefert.

Ich finde den Fehler mal wieder nicht. Kann mir einer Licht machen?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +5 replies
- Raubtier
  
  2014-11-10 14:23
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  Wenn du
  in_array(@blackliste_gang_ohne_adress,$_)
  aufrufst, dann gilt:
  
  Code (perl): (dl )
  
  1 2 3
  
  sub in_array { my ($arr,$search_for) = @_;
  
  In diesem Code ist $arr das erste Element von @blackliste_gang_ohne_adress, $search_for das 2. Element von @blackliste_gang_ohne_adress usw.
  
  Du müsstest eine Array-Referenz übergeben.
  
  Das ganze Vorgehen ist aber schrecklich ineffizient. Du solltest den Hash vorher aufbauen.
  
  Und wenn das für aus dich irgendwelchen Gründen schlecht ist, guck mal in List::MoreUtils (any oder firstidx). Du musst in_array nicht selbst schreiben. Vor allem wenn du nur 1x nach einem Element suchst, ergibt es keinen Sinn, erst einen Hash zu erzeugen.
  
  Edit: Code-Tags, Erklärung verbessert.
  Last edited: 2014-11-10 14:29:09 +0100 (CET)
  - +4 replies
  - jan99
    
    2014-11-10 14:43
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Hi!
    
    danke erst einmal und fertige Funktionen sind immer gut.
    
    Aber ich verstehe die Doku nicht! Ich würde es so in meinen Code übersetzen:
    
    Code (perl): (dl )
    
    if ($gang_with_no_adress{$_} == 0 && firstidx($_ @blackliste_gang_ohne_adress) > 0){
    
    Aber das sieht nicht nur merkwürdige aus - sondern läuft auch gegen die Wand !
    
    ???
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +3 replies
    - Raubtier
      
      2014-11-10 15:12
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Naja, $_ kannst du nur einmal benutzen. Wenn du $_ (innen) mit $_ (außen) vergleichen willst, solltest du dem äußeren $_ besser einen richtigen Namen geben (z.B. $gangKey). Außerdem ist die Syntax any { block } liste, d.h. any { $_ eq $gangKey } @blacklist (bzw. genauso mit firstidx, aber da du den Index nicht brauchst, würde ich any nehmen).
      
      Aber wie gesagt, besser wär, einen Hash außerhalb der Loop zu machen. Statt
      
      Code (perl): (dl )
      
      my @blackliste_gang_ohne_adress = ('Pergamentmachergang','Adler-Gang','Aegidienhof');
      
      also z.B.
      
      Code (perl): (dl )
      
      1 2
      
      my %blackliste_gang_ohne_adresse; @blackliste_gang_ohne_adresse{'Pergamentmachergang','Adler-Gang','Aegidienhof'} = ();
      
      Und dann jeweils nur auf exists $blackliste_gang_ohne_adresse{...} testen.
      
      PS: entweder ..._adresse oder ..._address, aber nicht ..._adress!
      Last edited: 2014-11-10 15:14:36 +0100 (CET)
      - +2 replies
      - jan99
        
        2014-11-10 15:24
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        den Satz
        
        Quote
        Aber wie gesagt, besser wär, einen Hash außerhalb der Loop zu machen. Statt
        
        verstehe ich nun gar nicht mehr ! Der Hash ist zu Anfang des Programms und nicht innerhalb einer Loop definiert !
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        Raubtier
        
        2014-11-10 15:27
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Nein, du hattest den Hash innerhalb der Loop, ja sogar innerhalb von in_array.
        
        Hier:
        
        Code (perl): (dl )
        
        my %items = map {$_ => 1} @$arr; # Zeile 1594
- +4 replies
- payx
  
  2014-11-10 15:43
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo jan99,
  
  vorweg: Alles, was Raubtier gesagt hat, ist richtig und beherzigenswert.
  
  Ein paar Hinweise auch von mir:
  
  1. Baue in Dein Script ein:
  
  Code (perl): (dl )
  
  use Data::Dumper;
  
  und
  
  Code (perl): (dl )
  
  print Dumper \%gang_with_no_adress;
  
  dann kannst Du Dir nach jeder Änderung bequem ansehen, was das Ergebnis ist.
  
  2. Dein erster Entwurf ist lauffähig, wenn Du in Zeile 2 einen Backslash vor @blackliste_gang_ohne_adress einfügst, dann wird das Array nämlich als ArrayRef übergeben, das Deine Funktion ja auch erwartet.
  
  3. Zum Prüfen auf "existiert" benutzt man in Perl üblicherweise einen Hash:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %gang_with_no_adress = ( 'Pergamentmachergang' => 0 , 'Bedler-Gang' => 0 , 'Begidienhof' => 1 ); my %blackliste_gang_ohne_adress = ( 'Pergamentmachergang' => 1 , 'Adler-Gang' => 1 , 'Aegidienhof' => 1 ); for (sort keys %gang_with_no_adress){ if ($gang_with_no_adress{$_} == 0 && $blackliste_gang_ohne_adress{$_}){ $gang_with_no_adress{$_} = -1; } }#end-foreach print Dumper \%gang_with_no_adress;
  
  HTH
  Grüße
  payx
  
  Editiert von payx: Typo (for statt vor; kann im allgemeinen Programmierer-Denglisch verwirrend sein:)
  Last edited: 2014-11-11 10:20:26 +0100 (CET)
  - +3 replies
  - jan99
    
    2014-11-11 08:52
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Moin !
    erst einmal wieder vielen Dank.
    
    Jetzt ist der Groschen gefallen. Dann würde auch auf meinem Weg
    
    Code: (dl )
    
    if ($gang_with_no_adress{$_} == 0 && in_array(@blackliste_gang_ohne_adress,$_) == 1){
    
    funktionieren, wie soeben getestet.
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +2 replies
    - Raubtier
      
      2014-11-11 09:24
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Quote
      
      Code: (dl )
      
      if ($gang_with_no_adress{$_} == 0 && in_array(@blackliste_gang_ohne_adress,$_) == 1){
      
      Das glaube ich dir nicht, denn das ist doch genau derselbe Aufruf wie im Ursprungsposting (immer noch kein \ vor dem @)
      
      (außer du hast Prototypen in dein in_array eingebaut)
      - jan99
        
        2014-11-11 10:34
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        bingo !
        
        da hatte ich auf der Schnelle vergessen dieses Zeichen einzufügen !!
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2014-11-10 13:50.