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

payx

2014-11-10 15:43

User since
2006-05-04
564 Artikel
BenutzerIn

user image

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 )

#!/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)