[plug] Perl Question

[Trevor Phillips]

On Tuesday 09 March 2004 00:02, Ryan wrote:
>
> > foreach $key (sort keys(%INC)) {
> >    print "$key => $INC{$key}\n";
> > }

%INC! That's what I was after.

> blah.pl
> -------
> #!/usr/bin/perl
> use module;
> $foo = $ARGV[0];
> &{$foo.'::function'}() if grep {/^$foo\.pm/} keys(%INC);

Thanks.

> Is that what you wanted?

Yes, thanks!

-- 
. Trevor Phillips             -           http://jurai.murdoch.edu.au/ . 
: Web Technical Administrator     -          T.Phillips at murdoch.edu.au : 
| IT Services                        -              Murdoch University | 
 >--------------------------------------------------------------------<
| On nights such as this, evil deeds are done. And good deeds, of     /
| course. But mostly evil, on the whole.                             /
 \      -- (Terry Pratchett, Wyrd Sisters)                          /