Compilierfehler gelöst

[Beat]

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.  
  
Entwarnung.  
Ich bin nun Fehlerfrei über die Kompilationsphase  
  
Sorry habe ${$\_[0]} gegen my $mod=shift ausgetauscht.  
  
~~~perl
  
sub __load_perl_module{  
   my $mod = "html.pm";  
   $mod =~ /^([a-z]+)\.pm$/ or return 'ERROR Bad Module Name' . $mod;  
   require $mod;  
   $mod =~ s/^([a-z]+)\.pm/$1/;  
   foreach( keys ( %$mod::export  )  ){  
      next if /^__/;  
      print $_, "\n";  
#     exists $c_self->{function}{$_} or $c_self->{function}{$_} = $$mod->{function}{$_};  
   }  
}  

Ich muss jetzt zuerst den Testcase bauen, im dann auch das runtime Verhalten zu sehen.

Danke

mfg Beat