Größe Array kompakt abfragen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-12-10 14:18:46
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
7 Gäste

[thread]18021[/thread]

submit to reddit

Größe Array kompakt abfragen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+11 replies
ingobulla

2013-01-03 09:32
User since
2008-08-08
20 Artikel
BenutzerIn
Hallo,

ich habe folgende zwei Zeilen Code:
Code (perl): (dl )

1 2

my @ar = $tiling->hsps(); my $num_hsps = $#ar + 1;
Ich frage mich nun, ob man ohne die Definition der Variable @ar auskommen kann, das Ganze also in eine Zeile bekommt.

Weiß dazu jemand was?
- +2 replies
- Raubtier
  
  2013-01-03 10:10
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  Hallo,
  
  die Länge eines Arrays bekommst du, wenn du es im Skalarkontext anschaust. Der Trick ist allerdings, dass du die Methode weiter im Listenkontext aufrufst:
  
  Code (perl): (dl )
  
  my $num_hsps = () = $tiling->hsps();
  
  Last edited: 2013-01-03 10:13:25 +0100 (CET)
  - betterworld
    
    2013-01-04 01:07
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    Raubtier
    
    Code (perl): (dl )
    
    my $num_hsps = () = $tiling->hsps();
    
    Genau das wäre auch meine Lösung.
    
    Allerdings ist das hier nicht wirklich ein Array im Skalarkontext, auch wenn es sich ziemlich analog verhält.
    
    Dies hier ist eine Listenzuweisung im skalaren Kontext, und die ergibt immer die Anzahl der Elemente von der Liste auf der rechten Seite.
    
    Auszug aus perlop:
    
    Quote
    Assignment Operators
    
    "=" is the ordinary assignment operator.
    
    [...]
    
    Similarly, a list assignment in list context produces the list of lvalues assigned to, and a
    list assignment in scalar context returns the number of elements produced by the expression
    on the right hand side of the assignment.
    
    Lieblingsmodule: IPC::System::Simple, Path::Class
- Muffi
  
  2013-01-03 10:17
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Es ist jetzt anhand des wenigen Codes nicht erkennbar was das macht und woher das Objekt kommt, aber evtl. ist eine Methode wie ->count an der Stelle schöner?
  1 + 1 = 10
- +7 replies
- pq
  
  2013-01-03 14:24
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  zusätzlicher hinweis:
  my $num_hsps = $#ar + 1; sieht reichlich umständlich aus.
  einfacher:
  my $num_hsps = @ar;
  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
  - +5 replies
  - bianca
    
    2013-01-03 14:31
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-01-03T13:24:12 pq
    einfacher:my $num_hsps = @ar;
    
    Muss es nicht my $num_hsps = scalar @ar; heißen, wenn er zum letzten Element einen addiert?
    Oder hat das den selben Effekt?
    10 print "Hallo"
    20 goto 10
    - Gast wert
      
      2013-01-03 15:09
      
      Beachte den Kontext!
      $x = @y => Scalarkontext => Anzahl der Einträge
      @x = @y => Listkontext => Eine Kopie der Einträge
      
      scalar erzwingt den scaleren Kontext
      Last edited: 2013-01-03 15:20:05 +0100 (CET)
    - pq
      
      2013-01-03 15:25
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      scalar ist eine funktion, die skalaren kontext erzwingt, wenn er nicht eh schon gegeben ist. und das ist er hier.
      
      ist geschmackssache, ob man es trotzdem davor schreibt. einige machen es, weil sie es deutlicher finden. andere (wie ich) finden es unnötig und nutzen es nur, wenn der skalare kontext vielleicht nicht auf den ersten blick erkennbar ist.
      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
    - +2 replies
    - GwenDragon
      
      2013-01-03 15:25
      
      User since
      2005-01-17
      14892 Artikel
      Admin1
      
      Wenn links ein Skalar steht, wird die Größe des Arrays an den Skalar zugewiesen.
      
      Auch diese erzeugt einen Skalarkontext
      durch Addition mit 0:
      
      Code (perl): (dl )
      
      1 2
      
      @arr=qw(1 2 3 4); print 0+@arr; # ist kürzer als scalar
      
      druch doppeltes Komplement:
      
      Code (perl): (dl )
      
      1 2
      
      @arr=qw(1 2 3 4); print ~~@arr; # ist kürzer als scalar
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - gelöscht 2013-01-03 15:27
  - Muffi
    
    2013-01-03 19:43
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    und strenggenommen auch richtiger.
    Ich hatte einen Fall wo jemand an $[ rumgespielt hat.
    1 + 1 = 10

View all threads created 2013-01-03 09:32.