Ausführung von in Hashschlüsseln gespeicherten Subs (gelöst) (Allgemeines zu Perl)

[thread]18829[/thread]

Ausführung von in Hashschlüsseln gespeicherten Subs [gelöst]

Tags: perl5 hash sub Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
MarkusH

2014-01-02 21:39
User since
2012-04-08
161 Artikel
BenutzerIn
Hallo,
a guats neis erstmal!
In einem Skalar wird über ein Script generierter Perl Code gespeichert und in einem Hash abgelegt.
An anderer Stelle soll dann der über den Hashschlüssel ausgewählte Code ausgeführt werden. Leider klappt das nicht und ich weiß jetzt nach Stunden des Probierens, lesens und googelns nicht mehr weiter;

In dem Beispielcode funktioniert Schlüssel A nicht, O jedoch schon.
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; my $A = q(my $arg = shift;print "A ";print "$arg\n";); my $B = q(print "B\n";); my %subs = ( A => sub { $A }, B => sub { $B }, O => sub {my $arg = shift;print "O ";print "$arg\n";} ); for my $key (keys %subs ) { eval &{$subs{$key}}(10) ; }
Ausgabe:
Code: (dl )

1 2 3 4 5

A Use of uninitialized value $arg in concatenation (.) or string at (eval 17)[F:\Perl-1.pl:13] line 1. O 10 B
Last edited: 2014-01-02 21:54:23 +0100 (CET)
$q =~ /(bb|[^b]{2})/
- +4 replies
- jan
  
  2014-01-02 21:50
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  ähh, $A und $B sind einfach nur strings, die werden nicht automatisch mit eval behandelt, nur weil sie in einer anonymen sub verwendet werden ;)
  - +3 replies
  - MarkusH
    
    2014-01-02 21:53
    
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    Was muß ich machen, damit A funktioniert?
    $q =~ /(bb|[^b]{2})/
    - bianca
      
      2014-01-02 22:59
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      ~~Ersetze mal den Aufruf durch $subs{$key}->(10);~~
      Vergiss es, habe nicht zuende gelesen.
      
      Editiert von bianca: Vertan
      10 print "Hallo"
      20 goto 10
    - rosti
      
      2014-01-02 23:00
      
      User since
      2011-03-19
      3194 Artikel
      BenutzerIn
      
      2014-01-02T20:53:54 MarkusH
      Was muß ich machen, damit A funktioniert?
      
      Source-Code generieren anstelle von Strings. Dann klappts auch mit eval.
      
      Code (perl): (dl )
      
      1 2 3
      
      my $source = 'sub{print shift}'; *foo = eval $source; foo(123);
- +2 replies
- Linuxer
  
  2014-01-02 22:58
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Mit einem String-eval() bei der Sub-Definition könnte man es wohl machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #! /usr/bin/perl use strict; use warnings; my $A = q(my $arg = shift;print "A ";print "$arg\n";); my $B = q(print "B\n";); my %subs = ( A => eval "sub { $A }", B => eval "sub { $B }", O => sub {my $arg = shift;print "O ";print "$arg\n";} ); for my $key (sort keys %subs ) { eval $subs{$key}->(10) ; }
  
  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!
  - MarkusH
    
    2014-01-02 23:41
    
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    Einwandfrei.
    Danke an alle.
    $q =~ /(bb|[^b]{2})/

View all threads created 2014-01-02 21:39.