perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 34
Click for quality!




11.02.2012 / 17:31

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragAuf Variablen von require zugreifen
Seitenanfang
hallo.

ich binde so meine module für mein script ein:

opendir (MODULE, "module") || info("kann moduldir nicht öffnen: $! -- benutze nur main()");
while (my $datei = readdir MODULE) {
next unless $datei =~ /\.cgi$/;
require "module/$datei" || &logge("! kann modul nicht einbinden: $!", "main");
push(@module, $datei);
$i++;
}
closedir (MODULE);

am anfang jeder modul datei steht
our $<modulname>_version

nun will ich in dem main script auf jede dieser $<modulname>_version variablen zugreifen - dynamisch. dazu verarbeite ich @module wie folgend:
foreach my $modulname(@module){
my ($mod_name) = split(/\./,$modulname);

push(@module_formatiert,"* $mod_name - v.$mod_name_version<br>");
}

allerdings funzt es so nicht. irgendwas is bei $mod_name_version falsch.
kann mir einer helfen, bzw weiss es besser?

vielen dank für eure hilfe
mfg chris

Datum: 20.12.2004-23:00

Beitragre: Auf Variablen von require zugreifen
Seitenanfang
gelöst dank anderen:

my $x;
$x = "${mod_name}_version";
print "modulversion: $$x";

Datum: 21.12.2004-18:32

-






-
-