[Perl] Symbolic reference probleempje

[QuarK]

Kan iemand mij helpen met het volgende perl probleem.
Het probleem is gesimplificeerd terug te brengen tot het volgende:

Ik heb variabele (uit hash of array) en de inhoud daarvan wil ik als object reference gebruiken.

code:

use strict;
no strict 'subs';
no strict 'refs';

my $obj = "Object";

no strict refs;
use $obj;
&$obj::subroutine();

Perl vindt dat dit geen goede code, en ik kan geen manier verzinnen om het wel te laten werken. De Perl manual pages helpen me ook niet echt verder, kan iemand me vertellen hoe het wel kan?

[BOOTZ]

moet het niet $obj->subroutine(); zijn? ik kan er naast zitten, maar volgens mij is het dit

[QuarK]

Nou, $obj is geen object referentie maar echt een string, de naam van een package.
Het gaat al gelijk fout bij de use $obj; opdracht.

En een -> ipv :: maakt in mijn geval helemaal niets uit. Kan beide, maar werkt allebei niet.

[QuarK]

Nou, iemand nog een idee?

[Michael]

Doe is inplaats van 'use $obj'

code:

eval "use $obj;";

[QuarK]

Michael: nope dat werkt niet..

[Michael]

code:

use strict;
my $obj = "test";
eval <<END_EVAL;
   use $obj;
   ${obj}::subroutine();
END_EVAL

Dit werk wel, sorry van die andere, had het niet getest

[Rowwan]

Gebruik eens 'require $obj' ipv 'use $obj'...