Haltbarkeit von $_[0] (gelöst) (Allgemeines zu Perl)

[thread]14903[/thread]

Haltbarkeit von $_[0] [gelöst]

Leser: 28

Articles: hide open all | hide show old branches

+10 replies
bianca

2010-04-02 08:36

User since
2009-09-13
6990 Artikel
BenutzerIn

Allgemeine Frage:
Wenn ich Parameter in eine sub übergebe, wie lange hält sich dort ein Wert in $_[0]?
Ist er solange haltbar, bis ich aus der sub eine weitere sub aufrufe oder ist er in dem Skope für immer haltbar?

Ich sehe in den meisten Programmen immer, dass diese Werte meist am Anfang der sub in lokale Variablen übernommen werden. Daraus schließe ich, dass sie ansonsten irgendwann nicht mehr in $_[0] zur Verfügung stehen würde.
Daher die Frage.
Als Vergleich: $1 aus einem Regex ist ja auch nur bis zum nächsten erfolgreichen Regex match haltbar und wird dann neu belegt.
Das meine ich mit der Frage.

Habe hier nämlich eine Sache, wo ich in eine sub je nach Anwendung an manchen Positionen andere Werte übergebe. Soll heißen, $_[3] enthält manchmal einen Dateinamen als String und manchmal einen Hash á la %{$_[3]}. Abhängig immer vom Wert in $_[0] der immer ein String ist. Und damit ich in der sub je Anwendung nicht zweimal verästeln muss (einmal oben für die Variablenzuordnung und einmal weiter unten für die Abarbeitung) möchte ich am liebsten oben garnicht die Variablen übernehmen sondern auch viel später noch z.B. mit $_[3] arbeiten. Und dafür würde ich gern genau wissen, wovon es abhängt, ob da noch die ursprünglich übergebenen Werte erhalten sind.

Danke Euch

Edit: Vergleich mit $1 korrigiert
Last edited: 2010-04-02 11:45:43 +0200 (CEST)
10 print "Hallo"
20 goto 10
- +5 replies
- esskar
  
  2010-04-02 10:45
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  Hi,
  
  solange du nicht mit shift, pop etcpp. was aus @_ entfernst, ist es immer
  
  Code (perl): (dl )
  
  1 2 3
  
  sub foo1 { my ($command) = @_; # @_ bleibt unverändert } sub foo2 { my $command = $_[0]; # @_ bleibt unverändert } sub foo3 { my $command = shift; # @_ wird geändert }
  
  man muss aber auspassen, welches @_ gemeint ist. Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  sub foo4 { my ($command) = @_; my $callback = sub { my ($foo, $bar) = @_; } }
  
  das @_ innerhalb der callback-funktion, ist ein anders, als das erste @_, dass benutzt wird, um $command zu setzen
  
  hth.
  - +4 replies
  - bianca
    
    2010-04-02 10:48
    
    User since
    2009-09-13
    6990 Artikel
    BenutzerIn
    
    Achso. Das heißt, mein @_ bleibt in der sub quasi unendlich haltbar, solange ich daran nicht mit den Arrayfunktionen etwas manipuliere. Und wenn ich wie in Deinem zweiten Beispiel noch eine sub aufrufe, entsteht ein neues @_ in diesem Skope, richtig?
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - esskar
      
      2010-04-02 10:58
      
      User since
      2003-08-04
      7321 Artikel
      ModeratorIn
      
      genau.
      - bianca
        
        2010-04-02 11:03
        
        User since
        2009-09-13
        6990 Artikel
        BenutzerIn
        
        Ich danke Dir vielmals und wünsche frohes Osterfest!
        10 print "Hallo"
        20 goto 10
    - murphy
      
      2010-04-02 13:30
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Man muss auch noch aufpassen, was man genau mit den Elementen von @_ anstellt — sie enthalten nämlich Aliase auf die eigentlichen Parameter, nicht Kopien von ihnen. Wenn ich also zum Beispiel
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      sub foo { $_[0] =~ y/x/y/; } foo("xyzzy");
      
      ausführe, gibt das einen Fehler, weil die Transliterationsoperation in der Subroutine foo versucht, die übergebene Konstante zu verändern.
      
      Kopiert man die Parameter einer Subroutine zunächst in lokale Variablen, so ist man vor diesem in der Regel unerwünschten Verhalten gefeit. Gelegentlich will man aber auch genau solch ein Verhalten erreichen und sollte dann nicht aus @_ herauskopieren, sondern erneut einen Alias anlegen oder das Arrayelement direkt modifizieren.
      When C++ is your hammer, every problem looks like your thumb.
- +4 replies
- renee
  
  2010-04-02 11:44
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  2010-04-02T06:36:04 bianca
  Als Vergleich: $1 aus einem Regex ist ja auch nur bis zum nächsten Regex haltbar und wird dann neu belegt.
  Das meine ich mit der Frage.
  
  Das ist nicht ganz richtig. $1 wird beim nächsten *erfolgreichen* Match neu gesetzt:
  
  Code: (dl )
  
  1 2 3 4
  
  jars@jars-desktop:~$ perl -wle 'my $var = "test"; $var =~ /.(..)/; print $1; $var =~ /noch/; print $1; $var =~ /test/; print $1' es es Use of uninitialized value in print at -e line 1.
  
  Beim ersten erfolgreichen Match werden die zwei Buchstaben in $1 gespeichert. Danach folgt ein RegEx, der nicht matcht. $1 bleibt also erhalten. Als drittes ein erfolreicher Match, der aber nichts speichert. Deswegen ist $1 danach undef.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - bianca
    
    2010-04-02 11:46
    
    User since
    2009-09-13
    6990 Artikel
    BenutzerIn
    
    2010-04-02T09:44:00 renee
    $1 wird beim nächsten *erfolgreichen* Match neu gesetzt:
    
    Hast Recht, so meinte ich es auch. Hab den Text korrigiert.
    10 print "Hallo"
    20 goto 10
  - +2 replies
  - esskar
    
    2010-04-02 12:34
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    so ganz stimmt das auch nicht.
    ist ja schon scope abhängig:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    #!/usr/bin/perl &foo; sub foo { "foo" =~ /(.*)/; print "foo 1: $1\n"; { "innerfoo" =~ /(.*)/; print "foo 2: $1\n"; } &bar; print "foo 3: $1\n"; } sub bar { "bar" =~ /(.*)/; print "bar : $1\n"; }
    
    ^Z
    foo 1: foo
    foo 2: innerfoo
    bar : bar
    foo 3: foo
    Last edited: 2010-04-02 12:37:10 +0200 (CEST)
    - renee
      
      2010-04-03 10:57
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      <klugscheiß>Auch das ist nicht richtig ;-) Die Variablen $1, $2, ... sind an den Regex gebunden und nicht an den Scope siehe http://rt.perl.org/rt3/Ticket/Display.html?id=2236...</klugscheiß> (war mir bis eben aber auch nicht bewusst)
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/

View all threads created 2010-04-02 08:36.