Frage zu Prototypen $foo 24 Seite 9 (gelöst) (Allgemeines zu Perl)

[thread]19474[/thread]

Frage zu Prototypen $foo 24 Seite 9 [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
bianca

2015-01-22 12:40
User since
2009-09-13
7016 Artikel
BenutzerIn
In der o.a. $foo gibt es dieses Codebeispiel:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

use feature 'say'; sub p_foo () { my $n = 12 * ( $_[0] // 1 ); return $n; } sub foo { my $n = 12 * ( $_[0] // 1 ); return $n; } say "p_foo: ", p_foo + 3; say "foo: ", foo + 3;
Warum kommt beim ersten 15 raus?
10 print "Hallo"
20 goto 10
- Muffi
  
  2015-01-22 12:56
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  12 * undef // 1 + 3
  würd ich sagen
  1 + 1 = 10
- payx
  
  2015-01-22 13:08
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo bianca,
  
  2015-01-22T11:40:26 bianca
  
  Code (perl): (dl )
  
  sub p_foo () { #...
  
  Warum kommt beim ersten 15 raus?
  
  Wegen der leeren Klammern. Wenn Du sub p_foo ($) { schreibst, erwartet die Funktion einen Scalar und macht dann dasselbe wie foo.
  
  HTH
  Grüße
  payx
- GwenDragon
  
  2015-01-22 13:28
  
  User since
  2005-01-17
  14754 Artikel
  Admin1
  
  die Funktion p_foo hat keine Parameter, was durch die leere Klammer des Prototypen angezeigt wird.
  Und deswegen ist $_[0] immer undef.
  
  Dann evaluiert:
  my $n = 12 * ( $_[0] // 1 );
  zu:
  my $n = 12 * ( undef // 1 );
  was dann 12 ist.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- renee
  
  2015-01-22 15:21
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Steht im Abschnitt darunter: Perl weiß durch den leeren Prototypen, dass *kein* Parameter übergeben werden soll, so dass erst die Funktion aufgerufen wird und dann die 3 addiert wird.
  
  Es wird also zu say 'p_foo:', p_foo() + 3;
  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
    
    2015-01-23 11:44
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2015-01-22T14:21:58 renee
    Es wird also zu say 'p_foo:', p_foo() + 3;
    
    Hier hat es geklickt. Danke euch!
    10 print "Hallo"
    20 goto 10

View all threads created 2015-01-22 12:40.