Ich schwimme: variables Package

[Struppi]

# hier will ich an eine Variable %html::export gelangen
   foreach( keys ( "%" . $_[0] ."::export" ) ){

so sollte es gehen

foreach( keys %{$_[0] . '::export'} ){

leider nein

Dann ist was anders falsch:

#! /usr/bin/perl -w  
use strict;  
  
package html;  
  
%html::export = (a => 1 , b => 2);  
  
package main;  
  
my $n = 'html';  
no strict 'refs';  
  
foreach( keys %{$n . '::export'} ){  
print "$_\n";  
}

Struppi.