Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: How can I find the names of dynamically created subroutines?

by polypompholyx (Chaplain)
on Feb 25, 2007 at 20:39 UTC ( [id://602036]=note: print w/replies, xml ) Need Help??


in reply to How can I find the names of dynamically created subroutines?

Rather than importing all those constant subs and peeking at the symbol table, you could import the constants into a conventional hash instead: 
use Win32::OLE::Const;

my $ps = Win32::OLE::Const->Load( 'Adobe Photoshop' );
for my $key ( keys %{ $ps } )
{
    print "$key => $ps->{ $key }\n";
}

[download]

Replies are listed 'Best First'.
Re^2: How can I find the names of dynamically created subroutines?
by Cap'n Steve (Friar) on Feb 25, 2007 at 23:35 UTC
    Well I guess that would be easier. I didn't even notice that before, but I think I'll switch to using that so I don't have to do "no strict 'subs';" anymore.
[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://602036]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others admiring the Monastery: (7)
As of 2024-04-18 05:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found