Eval, aber wie? (Allgemeines zu Perl)

[thread]13771[/thread]

Eval, aber wie?

Leser: 23

Articles: hide open all | hide show old branches

+7 replies
roli

2009-07-23 14:12
User since
2004-12-31
424 Artikel
BenutzerIn
Hi,

ich versuche dynamisch folgenden Funktionsaufruf nachzubauen:
Code (perl): (dl )

Anmelden($sel, "me@example.com", "geheim", 0)
Den Funktionsnamen, hier Anmelden, und die Parameter ab (incl.) der EMail lese ich in zwei Variablen ein.
$fkt_param="\"me@example.com\", \"geheim\", 0" baue ich dynamisch zusammen.
Daraus habe ich mir folgendes gebaut:
Code (perl): (dl )

eval "$fkt_name ($sel $fkt_param);";
Wenn ich das jetzt aber versuche auszuführen kommt dabei folgender Fehler:
Code: (dl )

1 2

Anmelden(Test::WWW::Selenium=HASH(...) , "me@example.com", "geheim", 0); Not a SCALAR reference at ./script.pl line 94
Das das so nicht gehen kann ist mir schon klar, aber wie ich es anstellen kann, das die Variablen $fkt_name und $fkt_param ausgewertet werden, $sel aber nicht, habe ich noch nicht heraus gefunden.

Danke
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +3 replies
- moritz
  
  2009-07-23 14:26
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Code: (dl )
  
  1 2
  
  my @arguments = (... a list here .. ); eval "$fkt_name(\@arguments)";
  
  Aber tendenziell wuerde ich dir fuer sowas eher eine Dispatch-Table empfehlen.
  Perl 6 - Perls Zukunft
  - +2 replies
  - roli
    
    2009-07-23 14:32
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Öhhh, jetzt erwischst du mich aber auf dem falschen Fuß ...
    
    2009-07-23T12:26:14 moritz
    
    Code: (dl )
    
    1 2
    
    my @arguments = (... a list here .. ); eval "$fkt_name(\@arguments)";
    
    mir ist nicht klar wo ich hier meine Variable $sel, die eben nicht "ausgewertet" werden soll/darf unterbringen soll.
    
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - moritz
      
      2009-07-23 15:36
      
      User since
      2007-05-11
      923 Artikel
      HausmeisterIn
      
      Code: (dl )
      
      my @arguments = ($sel, $alle_anderen_argumente_hier);
      
      Perl 6 - Perls Zukunft
- +3 replies
- pq
  
  2009-07-23 14:56
  User since
  2003-08-04
  12208 Artikel
  Admin1
  gar keine gute idee, dafür eval zu benutzen.
  wenn du da string-eval benutzt, musst du die parameter auch noch escapen, sonst kommt ja mist raus, wenn die z.b. ein " enthalten. und wenn der string auch noch von aussen kommt, handelst du dir ganz leicht eine riesen lücke ein.
  
  du hast ja sicher eine definierte liste der möglichen funktionen. wenn ja, dann ist das ganz simpel (minimalversion):
  
  Code (perl): (dl )
  
  1 2
  
  my %table = ( Anmelden => \&Anmelden, ... ); $table{ $fkt_name }->($sel, $foo, $bar);
  
  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
  - roli
    
    2009-07-23 15:53
    
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Hi pq,
    
    DANKE!
    Im Moment kommt meine Argumentenliste "$fkt_param" zwar noch als ein Argument an, aber wenn ich das nicht hinbekomme, dann baue ich die Funktionen halt dahingehend um, das ich anstelle des "shift" ein "split" verwende.
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - Linuxer
      
      2009-07-23 15:59
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      $fkt_param ist ja auch keine Liste, sondern ein Skalar. Somit ist das schon korrekt, dass da nur ein Argument ankommt.
      Wenn Du eine Liste haben willst, solltest Du auch eine Liste benutzen.
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my %table = ( Anmelden => \&Anmelden, ); $table{ Anmelden }->( $sel, 'me@example.com', 'geheim', 0 );
      
      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!

View all threads created 2009-07-23 14:12.