Existenz einer Variablen (Allgemeines zu Perl)

[thread]7676[/thread]

Existenz einer Variablen

Leser: 1

esskar

2006-02-05 14:40

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Gibt es eine schicke methode mit der ich testen kann, ob eine globale variable in einem externen package existiert ?!

2006-02-05 15:08

User since
2003-08-04
12209 Artikel
Admin1

es gibt bestimmt ein modul. aber es geht so:

Code: (dl )

my $package = "main";
my $var = "a";
my $type = "ARRAY";
no strict;
if (my $glob = ${$package."::"}{$var}) {
  if(my $ref = *{$glob}{$type}) {
    print Dumper $ref;
  }
}

\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

Crian

2006-02-06 13:29

User since
2003-08-04
5878 Artikel
ModeratorIn

$thread_title =~ s~existens einer variable~Existenz einer Variablen~;

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

esskar

2006-02-06 18:43

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

pq: funzt
crian: es war sonntag :)

Crian

2006-02-07 13:54

User since
2003-08-04
5878 Artikel
ModeratorIn

np =)

@topic: geht da nichts mit can main::... ?
Edit: Quatsch, es geht um Variablen ^^\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2006-02-05 14:40.