Gibt es für Zeile x einer Matrix andere Zeilen die ein Subset dieser Zeile sind? - #142064 (Allgemeines zu Perl)

clms

2010-10-19 22:13

User since
2010-08-29
373 Artikel
BenutzerIn
[default_avatar]

2010-10-19T19:06:34 topeg
Irgendwo komm eich mit den Vergleichsbedingungen in deinem Code nicht klar.

Wenn im Subset eine Ziffer steht, muss im Target an der Stelle die gleiche Ziffer stehen, wenn im Subset ein '-' steht, ist es egal, was im Target steht.

Meinen Vergleich in Zeile 42-44 kann man auch noch vereinfachen:

Code (perl): (dl )

1
2
3

print "Subset:\t\t",$comp->{line},"\n"
  unless ($comp->{mask} & ($target->{pattern} ^ $comp->{pattern}))
    || ($comp->{mask} & ~$target->{mask});

In der ersten Zeile wird geschaut, dass jede Ziffer in $comp mit mit dem Pattern von $target übereinstimmt. In der zweiten Zeile wird dann noch sichergestellt, dass überall wo in $comp eine Ziffer ist, auch in $target eine steht, weil ja auch '-' im Patten zu '0' werden.