Array leer, wie abfragen? (Allgemeines zu Perl)

[thread]14886[/thread]

Array leer, wie abfragen?

Leser: 32

Articles: hide open all | hide show old branches

+13 replies
PETER_PAN2009

2010-03-29 13:42
User since
2009-08-24
111 Artikel
BenutzerIn
Moin zusammen!
Was ist die eleganteste Lösung um abzufragen, ob ein ARRAY leer ist?
Ich habe's mit
Code: (dl )

1 2 3 4 5 6

my @array = (); if (not $array[0] eq q{}){ #mache was }else{ #mache was anderes }
Das klappt ja ganz gut, bekomme aber die Fehlermeldung(In der Zeile der IF-Anweisung): Use of uninitialized value in string eq at D:/test/test.pl line 254

Was mache ich falsch?
Danke
Gruß
Peter
- +3 replies
- pq
  
  2010-03-29 13:45
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3
  
  unless (@array) { # @array hat keine elemente = leer }
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - PETER_PAN2009
    
    2010-03-29 13:48
    
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    Fantastisch, die Fehlermeldung ist weg!!
    
    Danke
    Gruß
  - Gast wer
    
    2015-12-24 14:30
    Anzumerken ist, das if(@array) gleich zu if(scalar(@array)) was wiederum gleich zu if(scalar(@array) == 0) ist.
    In diesem Fall wird im skalar-Kontext abgefragt, nicht im listen-Kontext.
    
    Man muss da vorsichtig sein:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my @array1 = (0); my @array2 = (); my @array3 = (); if(grep{ $_ > 0 }(@array1,@array2,@array3)) { #... }
    
    Das ist nicht das selbe wie:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my @array1 = (0); my @array2 = (); my @array3 = (); if(@array1 > 0 or @array2 > 0 or @array3 > 0) { #... }
    
    Denn im ersten Fall ist es ein listen-Kontext im zweiten Fall ein skalar-Kontext.
    Will man den Ersten Fall wie den zweiten haben muss man es so machen:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my @array1 = (0); my @array2 = (); my @array3 = (); if(grep{ $_ > 0 }(scalar(@array1),scalar(@array2),scalar(@array3))) { #... }
    
    oder
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my @array1 = (0); my @array2 = (); my @array3 = (); if(grep{ @$_ > 0 }(\@array1,\@array2,\@array3)) { #... }
    
    Oder ähnliches um ein skalar-Kontext zu erzwingen.
    Last edited: 2015-12-24 16:07:17 +0100 (CET)
- +9 replies
- pktm
  
  2010-03-29 13:46
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Du kannst die Länge abfragen;
  
  Code: (dl )
  
  1 2 3 4
  
  my @array = (); if( $#array == -1 ) { print "leer"; }
  
  Soweit ich mich entsinne, geht es auch einfach so:
  
  Code: (dl )
  
  1 2 3 4
  
  my @array = (); if( @array ) { print "nicht leer"; }
  
  Last edited: 2010-03-29 13:57:00 +0200 (CEST)
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +8 replies
  - pq
    
    2010-03-29 13:48
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das erste beispiel stimmt so nicht. $#array gibt den ersten index wieder, der ist -1, wenn @array leer ist. scalar @array liefert die anzahl der elemente.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +6 replies
    - Taulmarill
      
      2010-03-29 13:54
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Und da boolsche Operatoren AFAIK automatisch scalaren Kontext haben, kann man das auch so schreiben:
      
      Code (perl): (dl )
      
      1 2 3
      
      if ( @array == 0 ) { print "leer\n"; }
      
      Das wäre jetzt die Version, die mir am meisten gefällt.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +5 replies
      - pq
        
        2010-03-29 13:56
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        oder halt einfach if (!@array) oder unless (@array), wie ich ja schon schrieb. der vergleich mit 0 ist unnötig.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        Gast Enrico
        
        2015-12-23 17:08
        
        Hallo,
        
        ich als Anfänger habe den Unterschied zwischen
        
        Code: (dl )
        
        1 2
        
        if (!@array) {&fehler('Leer');} else {}
        
        und
        
        Code: (dl )
        
        1 2
        
        unless (@array) {&fehler('Leer');} else {}
        
        nicht ganz begriffen. Theoretisch ist ja beides gleich und würde die folgende Bedingung auslösen und nicht in elsif oder else greifen.
        Last edited: 2015-12-23 17:32:02 +0100 (CET)
        
        +3 replies
        
        Linuxer
        
        2015-12-23 20:54
        
        User since
        2006-01-27
        3882 Artikel
        HausmeisterIn
        
        Guest Enrico
        Theoretisch ist ja beides gleich und würde die folgende Bedingung auslösen und nicht in elsif oder else greifen.
        
        Es gibt einen kleinen Unterschied; unless ist eher ein if not als ein if !; siehe http://www.perlmonks.org/?node_id=947 (siehe dort die Beiträge von holli und merlyn).
        
        Bei Stack Overflow wurde das auch recht nett und ausführlich diskutiert: http://stackoverflow.com/questions/3048726/usage-o...
        
        Ansonsten ist if (! weniger zu tippen als unless (.
        
        "Perl Best Practices" rät vom unless ab, aber an diesem Thema scheiden sich wohl die Geister.
        
        Ich habe da noch nicht stärker drüber nachgedacht, aber ich glaube, ich verwende unless höchstens bei einfachen Bedingungen. Wenn es komplexer wird (elsif / else Zweige, oder verknüpfte Bedingungen mit/oder Negationen), dann wird's ein if.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        # einfacher Fall mit unless sub foo { return unless $@; # gleich zurück solange keine Argumente angegeben wurden ... } # komplexer Fall mit if ! if ( !-e $directory ) { # mkdir } elsif ( !-d $directory ) { # kein Verzeichnis } elsif ( !-w $directory ) { # Verzeichnis, aber nicht schreibbar } else { # muss was wirklich doofes passiert sein... }
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Muffi
        
        2015-12-23 21:05
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich glaub das mit dem komplexer und if liegt daran, dass (persönliche Meinung) boolsche Algebra leichter lesbar ist, wenn man Negierungen so weit wie möglich nach innen zieht.
        
        Also z.b. (noch recht einfacher Fall) statt
        unless ($a and $b)
        lieber
        if (!$a or !$b)
        1 + 1 = 10
        
        betterworld
        
        2015-12-24 10:08
        
        User since
        2003-08-21
        2613 Artikel
        ModeratorIn
        
        2015-12-23T19:54:58 Linuxer
        Es gibt einen kleinen Unterschied; unless ist eher ein if not als ein if !; siehe http://www.perlmonks.org/?node_id=947 (siehe dort die Beiträge von holli und merlyn).
        
        Bei Perlmonks wurde ein Beispiel diskutiert, wo der "!"-Operator nicht stark genug bindet. Das kann man aber nicht auf den Code von Enrico übertragen. In seinem Fall ist die Bedingung nur @array, da ist es egal, wie stark "!" bindet.
        
        "unless(...)" ist immer das Gleiche wie "if(!(...))". Was Du sagen wolltest, ist nur, dass man nicht in allen Fällen die inneren Klammern nach dem "!" weglassen darf. Aber in Enricos Fall darf man es weglassen.
        Lieblingsmodule: IPC::System::Simple, Path::Class
    - pktm
      
      2010-03-29 13:57
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Stimmt.
      http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2010-03-29 13:42.