Sinn Klammer bei my ($f) = shift (Allgemeines zu Perl) - Perl-Community.de

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

2024-04-19 08:18:51
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online

[thread]18726[/thread]

submit to reddit

Sinn Klammer bei my ($f) = shift

Tags: perl5 Subroutinen runde Klammer my Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+17 replies
Gast Gast200

2013-11-05 23:26
Hallo,
ich habe jetzt schon öfters sowas in Fremdcode gesehen:
Code: (dl )

1 2 3 4 5 6 7 8

sub bla { my ($a) = shift; ... } #Aufruf Bsp.: $b = "ABC"; bla($b)
Was shift macht ist mir klar: Erster Parameter aus dem Parameterarray übernehmen.
Warum aber die runde Klammer um $a? Lasse ich sie weg funktioniert es
genauso.
Last edited: 2013-11-05 23:32:57 +0100 (CET)
- +13 replies
- pq
  
  2013-11-06 00:33
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  ist eigentlich nur nötig bei:
  my ($var) = @_;
  weil man dort mit den klammern den listenkontext erzwingt. ansonsten würde in $var nur die anzahl der elemente in @_ landen.
  
  bei deinem beispiel sind die klammern unnötig und vermutlich nur aus gewohnheit dort gelandet.
  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
  - Gast Gast200
    
    2013-11-06 08:26
    
    D.h. my ($f) ist das selbe wie my @f?
    Last edited: 2013-11-06 08:49:59 +0100 (CET)
    - bianca
      
      2013-11-06 08:50
      
      User since
      2009-09-13
      6976 Artikel
      BenutzerIn
      
      Nein, wie kommst du darauf?
      10 print "Hallo"
      20 goto 10
    - +4 replies
    - GwenDragon
      
      2013-11-06 08:51
      
      User since
      2005-01-17
      14532 Artikel
      Admin1
      
      Nein. my @f bezieht sich auf ein Array, my $f auf einen Skalar.
      my ($f) is dasselbe wie my $f;
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +3 replies
      - Gast Gast200
        
        2013-11-06 10:18
        
        Jetzt habe ich beides ausprobiert:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        #!/usr/bin/perl -w sub bla1 { my ($a) = @_; print "$a\n"; } sub bla2 { my @a = @_; print "@a\n"; } sub bla3 { my $a = @_; print "$a\n"; } bla1(4,5,6); # 4 : erstes Element = @_[0] bla2(4,5,6); # 4 5 6 bla3(4,5,6); # 3 : Anz. der Elemente
        
        Dass man so auf das erste Element eines Arrays zugreifen kann wusste ich noch nicht, bin erst seit zwei Tagen mit Perl am arbeiten.
        
        Danke für die Hilfe.
        Last edited: 2013-11-06 10:42:26 +0100 (CET)
        
        Muffi
        
        2013-11-06 10:45
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Zeile 17:
        erstes Element = $_[0], also $ statt @
        1 + 1 = 10
        
        GwenDragon
        
        2013-11-06 11:40
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        Du verstehst, warum
        my $a = @_; die Zahl drei ergibt?
        $a ist ein Skalar und die Zuweisung eines Arrays an einen Skalar (das nennt man Skalarkontext) ergibt bei Perl eben die Anzahl der Arrayelemente.
        Wenn du das erste Element eines Array willst:
        my $a = $_[0];
        oder
        my $a = shift @_;
        oder kürzer
        my $a = shift;
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +6 replies
  - clms
    
    2013-11-06 11:00
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2013-11-05T23:33:46 pq
    ist eigentlich nur nötig bei:
    my ($var) = @_;
    weil man dort mit den klammern den listenkontext erzwingt. ansonsten würde in $var nur die anzahl der elemente in @_ landen.
    
    bei deinem beispiel sind die klammern unnötig und vermutlich nur aus gewohnheit dort gelandet.
    
    Der andere Fall, bei dem man die Klammern braucht -
    wenn man mehrere Variablen auf einmal deklarieren und zuweisen will!
    
    Code (perl): (dl )
    
    my ($a,$b) = (shift, shift)
    
    Wenn dann bei einer Programmänderung die zweite Variable wegfällt - oder ich den Code mit Copy&Paste an eine Stelle übernehme, an der ich nur eine Variable brauche - bleiben auch bei mir die Klammern oft stehen.
    - +5 replies
    - Raubtier
      
      2013-11-06 20:54
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      2013-11-06T10:00:56 clms
      Der andere Fall, bei dem man die Klammern braucht -
      wenn man mehrere Variablen auf einmal deklarieren und zuweisen will!
      
      Code (perl): (dl )
      
      my ($a,$b) = (shift, shift)
      
      Hilfe! Bei Code, der in ein und demselben Kommando 2x dasselbe Array ändert, bekomme ich Angst! Ich würde dringend davon abraten, sich sowas anzugewöhnen.
      - clms
        
        2013-11-07 02:03
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2013-11-06T19:54:26 Raubtier
        2013-11-06T10:00:56 clms
        Der andere Fall, bei dem man die Klammern braucht -
        wenn man mehrere Variablen auf einmal deklarieren und zuweisen will!
        
        Code (perl): (dl )
        
        my ($a,$b) = (shift, shift)
        
        Hilfe! Bei Code, der in ein und demselben Kommando 2x dasselbe Array ändert, bekomme ich Angst! Ich würde dringend davon abraten, sich sowas anzugewöhnen.
        
        Hier habe ich das genommen, weil es dem ursprünglichen Beispiel am nächsten kommt.
        
        Das (shift,shift) verwende ich in der Praxis nur extrem selten - wenn überhaupt, dann direkt als erste Zeile in einer Subroutine, wenn ich aus irgendwelchen Gründen die restlichen Argumente unbedingt in @_ belassen will.
        
        Ohnehin ist die erste Zeile in einer Subroutine die Stelle, wo ich bevorzugt my ($a,$b) = ... schreibe. Sonst spendiere ich eher pro Variable ein eigenes my und eine eigene Zeile.
      - Linuxer
        
        2013-11-07 10:44
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Neugierde: Gibt es außer "Angst" noch andere Gründe, warum Du davon abrätst?
        
        PS: Ich würd's auch nicht so tun, aber eher, weil es nicht meinem Stil entspricht, den ich mir angewöhnt habe.
        Last edited: 2013-11-07 10:45:17 +0100 (CET)
        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!
      - +2 replies
      - GwenDragon
        
        2013-11-07 11:03
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        Du rätst ab. Wie machst du es dann? Wie sollten andere es machen als Perl Good Practice?
        Kein shift? Kopierst du immer die Parameter aus @_ in die my-Liste um?
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        Raubtier
        
        2013-11-07 12:14
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Die Angst kommt wahrscheinlich von C++ und einem Funktionsaufruf mit 2x einem Shift-Äquivalent. Da garantiert mir ja niemand, dass das erste Shift vor dem zweiten aufgerufen wird. Shift hat ja hier als Seiteneffekt, dass @_ verändert wird, daher ist die Reihenfolge wichtig. Daher halte ich dieses Konstrukt für schlechten Stil. Gegen ein shift pro Befehl habe ich nichts einzuwenden.
        
        PS: ist jemand von euch zufällig gerade im Cinemaxx HH? Dann bitte pm!
- +2 replies
- Gast Gast200
  
  2013-11-06 13:17
  Jetzt habe ich es auch in einem Buch gefunden: Skalarliste. Mit nur einem Element ist es ein Sonderfall dieser Liste, also das was ich oben hatte.
  
  Ist ja sehr praktisch wie man damit Arrayelemente an Variablen zuweisen kann, sogar Überspringen geht:
  
  Code: (dl )
  
  my ($b, undef, $b) = @array;
  
  @Mufi:
  Ja haste recht das '@' muss ein $ sein.
  
  Dem Rest hier auch Danke.
  Last edited: 2013-11-06 13:22:16 +0100 (CET)
  - Muffi
    
    2013-11-06 14:09
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Theoretisch ginge auch ein Array-Slice:
    
    Code (perl): (dl )
    
    my ($a, $c) = @array[0,2];
    
    1 + 1 = 10
- betterworld
  
  2013-11-07 15:37
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  Der Punkt ist, dass die rechte Seite im Listenkontext ausgewertet wird. Von dieser Liste wird dann das erste Element zugewiesen.
  
  Ich brauche das schon hin und wieder. Ein paar Beispiele fallen mir spontan ein:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  # Beispiel 1. my ($x) = /(regex)/; # (Ohne Listenkontext würde der Match etwas ganz anderes zurückgeben) # Beispiel 2. # in meiner perlscriptsammlung gefunden, zum parsen der ausgabe von mplayer -identify: my ($width) = map { /^ID_VIDEO_WIDTH=(\d+)$/ } @identify;
  
  In beiden Fällen geht die Fehlerbehandlung sehr gut. Denn wenn nichts gefunden wird, ist die Variable undef.
  
  Bei "= shift" macht die Klammer natürlich keinen Unterschied. Es liegt vermutlich am Coding Style des Autors.
  Last edited: 2013-11-07 15:46:40 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2013-11-05 23:26.