Aufruf einer sub und Parameter (gelöst) (Allgemeines zu Perl)

[thread]20433[/thread]

Aufruf einer sub und Parameter [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+17 replies
bianca

2018-03-04 14:39
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Tag!

Bei der Arbeit mit dem Modul Crypt::LE übergibt man im Kommando ->accept_challenge() den Namen einer sub.
Ich möchte das gern anders schreiben. Denn wenn ich die sub mit sub process_challenge {} definiere kann ich auf Variablen außerhalb der sub nicht zugreifen. Übergeben kann ich sie aber auch nicht, weil der Aufruf \&process_challenge lautet und in $_[0] eine Hash Referenz übergeben wird. Die würde ich dann ja mit meinen eigenen Variablen überschreiben.

Wenn ich allerdings andersherum die sub mit my $process_challenge = sub {}; definiere habe ich zwar Zugriff auf die Variablen außern aber es funktioniert der Aufruf ->accept_challenge(\&process_challenge) nicht mehr.

Nochmal Zusammenfassung:
1. Dies kompiliert nicht, weil innen Variablen fehlen:
Code (perl): (dl )

1 2 3 4 5 6

my $foo = 'bar'; sub process_challenge { my $challenge = shift; # hier fehlt $foo } $le->accept_challenge(\&process_challenge);
2. Hierbei meldet das Modul
Quote
All challenges failed
Code (perl): (dl )

1 2 3 4 5 6

my $foo = 'bar'; my $process_challenge = sub { my $challenge = shift; # hier ist $foo zwar da aber das Modul muckt }; $le->accept_challenge(\&process_challenge);
Ich weiß nicht, wie man das anders schreiben kann und ich weiß auch nicht, wonach ich googeln müsste, um hierfür eine Lösung zu finden
Was ist hier die sauberste Lösung? Kommt nicht auf Speed und CPU an.

Danke!
10 print "Hallo"
20 goto 10
- +3 replies
- rosti
  
  2018-03-04 15:18
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  Vegiß den Aufruf per \&... Machs besser so:
  
  Code (perl): (dl )
  
  1 2
  
  my $process_challenge = sub {}; $le->accept_challenge($process_challenge);
  
  oder übergibst einen Typeglob:
  
  Code (perl): (dl )
  
  1 2
  
  sub process_challenge{} $le->accept_challenge(*process_challenge);
  
  MfG
  - +2 replies
  - bianca
    
    2018-03-05 11:17
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2018-03-04T14:18:47 rosti
    Vegiß den Aufruf per \&... Machs besser so:
    
    Code (perl): (dl )
    
    1 2
    
    my $process_challenge = sub {}; $le->accept_challenge($process_challenge);
    
    Das nehme ich. Danke dir!
    10 print "Hallo"
    20 goto 10
    - bianca
      
      2018-03-20 09:52
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2018-03-05T10:17:42 bianca
      Das nehme ich. Danke dir!
      
      Habe es geändert und benutze jetzt diese: msg #188081
      Weil bei dieser Syntax hier eine Variable von außen drinnen nicht so geändert werden kann, dass außen das mitbekommt.
      
      Danke euch
      10 print "Hallo"
      20 goto 10
- +8 replies
- Linuxer
  
  2018-03-04 20:07
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Eine Alternative, um Argumente zu übergeben, die zur Definition von process_challenge() noch nicht als Variablen verfügbar sind, wäre noch:
  
  ->accept_challenge( sub { process_challenge( arg1, $varX, arg3 ) } )
  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!
  - +6 replies
  - bianca
    
    2018-03-05 07:21
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke dir.
    
    Kommt bei dieser Alternative auch die erste Variable $challenge in der sub an, die nicht ich selbst übergebe?
    Ich will mit LE nicht soviel rumprobieren, nachher sperren die mich oder so.
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - rosti
      
      2018-03-05 08:09
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Wenn Du eine Callbackfunktion übergibst, kommt das an, was derjenige da reinpflanzt der diese Funktion übergeben bekommt. Ein Blick in @_ zeigt Dir das, siehe Beispiel.
      
      Btw, accept_challenge($callback [, $params] [, $type]) d.h., auch da kannst Du argumente übergeben.
      
      MfG
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      sub foo{print "@_"} bar(*foo); sub bar{ my $coderef = shift; $coderef->("Juhuhhuu...123"); }
      
      Last edited: 2018-03-05 08:20:39 +0100 (CET)
      - +2 replies
      - bianca
        
        2018-03-05 11:24
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2018-03-05T07:09:49 rosti
        was derjenige da reinpflanzt der diese Funktion übergeben bekommt.
        
        Das Modul Crypt::LE übergibt der sub process_challenge an erster Position ein Hashref. Wenn ich aber doch mittels $process_challenge->('foo') die erste Position "blockiere" wie komme ich dann an das Hash?
        10 print "Hallo"
        20 goto 10
        
        rosti
        
        2018-03-05 13:13
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        2018-03-05T10:24:11 bianca
        2018-03-05T07:09:49 rosti
        was derjenige da reinpflanzt der diese Funktion übergeben bekommt.
        
        Das Modul Crypt::LE übergibt der sub process_challenge an erster Position ein Hashref. Wenn ich aber doch mittels $process_challenge->('foo') die erste Position "blockiere" wie komme ich dann an das Hash?
        
        Deine Funktions-Aufrufe blockieren sich nicht gegenseitig. Wenn Du sowas haben willst, musst Du Dir was anderes einfallen lassen ;)
        
        .
    - +2 replies
    - clms
      
      2018-03-05 11:40
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2018-03-05T06:21:25 bianca
      Kommt bei dieser Alternative auch die erste Variable $challenge in der sub an, die nicht ich selbst übergebe?
      Ich will mit LE nicht soviel rumprobieren, nachher sperren die mich oder so.
      
      So wie es momentan geschrieben ist nicht, aber das lässt sich einfach nachtragen. Die Argumente beim Aufruf der Funktion werden ja jetzt an den anonymen Wrapper übergeben. Dort werden sie zur Zeit nicht ausgewertet. Das kannst du ändern.
      Beispiel:
      
      Code (perl): (dl )
      
      ->accept_challenge( sub { process_challenge( shift, $varX, arg3,@_ ) } )
      
      Hier wird das erste Argument des Wrapper-Aufrufs als erstes an process_challenge() übergeben, dann werden zwei zusätzliche Argumente eingefügt, die die aufrufende Klasse nicht sieht, und schließlich die restlichen Argumente des Wrapper-Aufrufs angehängt.
      - bianca
        
        2018-03-05 11:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke für die Erklärung. Wenn man das so sieht ist es einleuchtend. Aber erstmal drauf kommen :)
        10 print "Hallo"
        20 goto 10
  - bianca
    
    2018-03-05 11:20
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2018-03-04T19:07:22 Linuxer
    ->accept_challenge( sub { process_challenge( arg1, $varX, arg3 ) } )
    
    Mit rosti's Syntax tu ich mich leichter. Danke dir.
    10 print "Hallo"
    20 goto 10
- +5 replies
- Muffi
  
  2018-03-05 09:34
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  So wirklich hab ich das Problem beim ersten Beispiel nicht verstanden. Kann mir das wer erklären?
  1 + 1 = 10
  - rosti
    
    2018-03-05 10:05
    
    User since
    2011-03-19
    3472 Artikel
    BenutzerIn
    
    2018-03-05T08:34:37 Muffi
    So wirklich hab ich das Problem beim ersten Beispiel nicht verstanden. Kann mir das wer erklären?
    
    Geht mir genauso.
    
    .
  - +3 replies
  - bianca
    
    2018-03-05 11:15
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das wirft Use of uninitialized value für $foo
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Muffi
      
      2018-03-05 12:41
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Dann steh ich grad am Schlauch.
      
      Dieses Beispiel sagt "bar"
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      my $foo = 'bar'; sub process_challenge { my $challenge = shift; say $foo; } package Foobar; sub accept_challenge { my $a = shift; $a->(); } accept_challenge(\&main::process_challenge);
      
      1 + 1 = 10
      - bianca
        
        2018-03-05 19:16
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Stimmt. Sorry. Ich weiß nicht mehr wie die Konstellation genau war. Hab ich mich vertestet. Tut mir leid.
        10 print "Hallo"
        20 goto 10

View all threads created 2018-03-04 14:39.