Re: Re: Re: How to list all the installed perl modules

Yeah, I realized that shortly thereafter. I've been picking my brain trying to figure out a way to do this with native functions, but I can't scale the recursion. Anyone else have any ideas? I've tried checking the input for (-d) and pushing it back to @INC, but my "while" doesn't seem to honor this attempt...

perl -e 'while (<@INC>) { while (<$_/**>) { if (-d) { push(@INC,$_) } 
+elsif (/\.pm/) { print "$_\n" } else { next } } }'
[download]

-fuzzyping

Comment on Re: Re: Re: How to list all the installed perl modules Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: How to list all the installed perl modules by lestrrat (Deacon) on Mar 18, 2002 at 01:25 UTC
how about `perl -e 'sub f{$d=pop;/\.pm/&&-f$_&&print"$_\n";-d$_&&f($_)for(<$d/*>) +}f($_)for@INC'` [download]	[reply] [d/l]
Re4: How to list all the installed perl modules by blakem (Monsignor) on Mar 18, 2002 at 01:47 UTC
`while(<@INC>)` [download] Is very suspect code.... You probably want something like: `my @copy = @INC; while(defined($_ = shift(@copy))) { # push to @copy as necessary }` [download] See Why is @array so slow? for more details. -Blake	[reply] [d/l] [select]