Thread push mit hashes (17 answers)
Opened by jan99 at 2011-06-16 08:52

jan99
 2011-06-16 10:43
#149651 #149651
User since
2008-09-18
439 articles
BenutzerIn
[default_avatar]
hi !

ich habe das jetzt eingepflegt in die gekennzeichneten Zeilen (##<<<-) - bekomme aber eine Fehlermeldung das die Anzahl der } nicht passt !!!!

Habe ich da etwas falsch umgesetzt ??

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
27
28
29
30
for my $element (@osm_data_platform)
{
    my $refvalue =  $element->tag('ref:svhl')->value();
    my $fingerprint = lc($element->type()).$element->id();
        
dort vorhanden,
        print "\n\nReferenz: ".$refvalue."\n";
        print "Fingerpring: ".$fingerprint."\n";
        if (!defined($platform_id{$refvalue}))
        {
          print "==> nicht in Liste gefunden !\n";
          push(@platform_noref, $fingerprint) # fehlerliste ergänzen
        }else{
          print "==> in RefListe vorliegende !! => weiter checken\n";
- doppelt gibt es nicht !
          if ($platform_id{$refvalue} ne "")
            { 
                  print "===> es liegt bereits eine Referenz vor ! => Fehlerliste fuer mehrfach ergaenzen\n";
                  if ($platform_id{$refvalue} eq "-1"){
                    push @{$platform_err_id{$refvalue}}, $fingerprint ; #<<<<-
                  }
                    $platform_err_id{$refvalue} = $platform_id{$refvalue};
                    $platform_id{$refvalue} = "-1";
                    push @{$platform_err_id{$refvalue}}, $fingerprint; #<<<<-
                  }
          } else {
            print "==> jetzt liegt eine Element für diese Ref vor !\n";
            $platform_id{$refvalue} = $fingerprint;
      }   
        }


Gruß Jan :-)

modedit Edited by renee: perl-Tags eingefügt
Last edited: 2011-06-16 10:55:37 +0200 (CEST)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View full thread push mit hashes