Namensraum als Skalar? (Allgemeines zu Perl)

[thread]8861[/thread]

Namensraum als Skalar?

Gast Gast

2007-03-21 22:53

Hallo,
ich habe ein Modul mit mehreren Namensräumen und darin Subroutinen gleichen Namens, also etwa so:

Code: (dl )

package a;
sub test() {}
package b;
sub test() {}

Im Hauptprogramm greife ich dann so auf die Subs zu:

Code: (dl )

1
2

a::test();
b::test();

So weit, so gut.
Jetzt möchte ich aber den Namensraum in einem Skalar speichern und so etwas machen:

Code: (dl )

1
2

$x = "a";
$x::test();

Leider geht es so aber nicht.
Kurze Frage: Wie gehts denn?
Vielen Dank für eure Hilfe!

2007-03-21 23:08

User since
2003-08-04
12208 Artikel
Admin1

am saubersten gehts wohl so:

Code: (dl )

sub foo::test { print "test" }
my $x = "foo";
my $sub = $x->can("test");
$sub->()

oder unsauberer:

Code: (dl )

sub foo::test { print "test" }
my $x = "foo";
no strict;
&{ $x . "::test"}

aber vielleicht willst du ja in wirklichkeit lieber objektorientiert arbeiten.\n\n

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Opaxtl

2007-03-21 23:36

User since
2007-03-21
12 Artikel
BenutzerIn
[default_avatar]

Ich bin für alles offen. :)

Ich weiß über Perl-OOP aber nicht mehr als die OO-Nutzung des CGI-Moduls. Aber wenn es viel eleganter gehen sollte....

2007-03-22 00:01

User since
2003-08-04
12208 Artikel
Admin1

nun ja, für dieses eine problem ist es overkill, aber vom design her
klingt es halt nach OO, wenn man abhängig vom namensraum eine funktion
ausführen will.

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

bloonix

2007-03-22 11:07

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code: (dl )

use strict;
use warnings;

# Objekte mit new() erzeugen
my $a = new a;
my $b = new b;

# Methoden aufrufen
$a->test();
$b->test();

package a;

sub new {
   return bless {}, $_[0]
}

sub test {
   my $self = shift; 
   print "test"
}

package b;

sub new {
   return bless {}, $_[0]
}

sub test {
   my $self = shift;
   print "test"
}

1;

\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

View all threads created 2007-03-21 22:53.