Opened by esskar at 2006-02-05 14:40
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
es gibt bestimmt ein modul. aber es geht so:
\n\n
<!--EDIT|pq|1139145555-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $package = "main";
my $var = "a";
my $type = "ARRAY";
no strict;
if (my $glob = ${$package."::"}{$var}) {
if(my $ref = *{$glob}{$type}) {
print Dumper $ref;
}
}
<!--EDIT|pq|1139145555-->
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
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem