Perl: Flexibilitaet der Sprache

Gibt es in Perl eine Moeglichkeit,

a) in einer Variable enthaltenen Perlcode auszufuehren, ohne auf

Code:

---

system 'perl -e "'.$code.'"';

---

zurueckgreifen zu muessen?

b) einen Variablennamen aus einer Variablen auszulesen (entspricht etwa einem Pointer (die es ja auch in Perl gibt), ich suche aber explizit eine namespace-orientierte Loesung)

Danke,

Samsara
.

a) eval EXPR (nicht BLOCK).
b) Was meinst du mit Namespace? Module?

Gruss, Andy

b) Ich meine, dass z.B. dieser Pseudocode:

Code:

---

my $retval = "hello world\n";
my $varname = "retval";
print ${$varname};

---

"hello world" ausgeben sollte.

Danke,

Samsara
.

hab zwar nicht so die ahnung von perl, aber in der shell kannst du das lösen:

...
varname=$"retval"
...

nutzt


hoffe es hilft :-)

Zitat:

---

Zitat von Mehlwurm

hab zwar nicht so die ahnung von perl, aber in der shell kannst du das lösen:

---

In welcher? In bash gibt

Code:

---

echo $"retval"

---

Nur "retval" aus. Vielleicht mal das komplette Codebeispiel posten?

Um den Sinn meiner Frage zu erklaeren: wie schon gesagt, geht es im Prinzip um pointers, ABER: einfachstes Beispiel, man soll einen string von cmdline einlesen koennen und dann den Wert der Variablen ausgeben, deren Name dem Wert des Strings entspricht. Damit kann man sich so allerhand if- bzw. case-Konstrukte ersparen - der Code wird sehr viel sauberer!

Danke,

Samsara
.

Code:

---


#!/bin/bash
test1=hallo
test2=$test1
echo $test2

---

hallo

Ne, was ich suche ist (Pseudocode):

Code:

---

#!/bin/bash
test2="hallo"
varname="test2"
echo $$varname

---

varname enthaelt einen String, der "test2" lautet. Also EXPLIZIT NICHT

Code:

---

varname=$test2

---

Gruss,

Samsara
.

Hallo Samsara,

die Sache die Du dort beschreibst nennt man symbolische refrenz - siehe auch perldoc perlref:

Zitat:

---

$name = "foo";
$$name = 1; # Sets $foo
${$name} = 2; # Sets $foo
${$name x 2} = 3; # Sets $foofoo
$name->[0] = 4; # Sets $foo[0]
@$name = (); # Clears @foo

---

Dein Pseudocode war schon ziemlich nah dran:

Code:

---

#!/usr/bin/perl

$foo="Hello World!\n";
$bar="foo";
print $$bar;

---

In der Regel gibt es aber eine elegantere Alternative zu symbolischen Referenzen. zum Beispiel assoziative Arrays -> Hashtables...

Vielen lieben Dank, Michael, und auch nochmal RapidMax!

Samsara
.