Methoden eines unbekannten Objektes: Win32::OLE - #12685 (Windows)

format_c

2005-01-27 13:03

User since
2003-08-04
1706 Artikel
HausmeisterIn

Da es pseudocode ist funktioniert er wohl nicht, abgesehen von dem fehlenden ". Hast du einen Funktionierenden Code?

Code: (dl )

sub dump_subs {
   my $package = shift;
   my @subs = sort grep defined *{$package."::$_"}{"CODE"}, keys %{$package."::"};
   for my $isa (@{$package."::ISA"}) {
       push @subs, dump_subs($isa);
   }
   @subs;
}
print join ", ",dump_subs(CGI);
_ _ END _ _

Gruß Alex

Effizente Linuxshell