[Gtk2/perl] bug in meiner bugbehebung

[Chakotay]

hab in meinem script das problem das ein array manchmal leer sein kann
und das mag das script irgendwie nicht so gerne
nun dachte ich das:

if (@BLACKLIST == m//)
{
  my $list_item = Gtk2::ListItem->new ("keine Einträge vorhanden");
  $list1->add($list_item);
  $list_item->show;
}

ja das problem lösen sollte (ok danach ist der array gefüllt,aber der bug tritt weiter auf)

Use of uninitialized value in pattern match (m//) at /home/chakotay/.xchat2/Z-SCRIPT/Z-Blacklist.pl line 190.

wie kann ich der problem elegand aus dem weg räumen ?

[Molaf]

Das Problem ist wohl eher, wie Du das Array auf Einträge abfragst, nämlich indem Du mit einem leeren RE-Suchstring suchen willst.

if (@array)
       {#array hat einträge
       }

So ist das etwas eleganter.

(oder bei der Negation einfach unless statt if)

[Chakotay]

danke :-)
unless hats behoben

ich sags ja immer wieder (if's sind mir ein rätzel) auch wenn if diesmal falsch war^^

[Molaf]

Gegangen wäre aber auch:

if (not (@array))
    { #blah
    }

Der Fehler lag aber an der Kombination RE und Array. nicht am if oder unless.

[Chakotay]

hmm
welches ist den das bessere ?
if (not (@array))
oder
unless (@array)

[Molaf]

Das ist wohl ganz nach Belieben. Ich hab zumindest noch nirgendwo gelesen, dass eine der beiden Umsetzungen (in den neuen Perl-Versionen) vom Laufzeitverhalten schneller wäre.

Ich nehme unless selber nur, wenn eine einzelne Sache zu entscheiden ist, in länge if-elsif-else-Alien mische ich kein unless rein, dann blicke ich selber nichtmehr durch.