Re^3: standard perl routine

Since there is no agreement on what "all the standard subroutines" should contain, there is no way you can autoload them.

Also it would be quite rare that you need "all the standard subroutines" (whatever they may be) in the same script.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Comment on Re^3: standard perl routine

Replies are listed 'Best First'.
Re^4: standard perl routine by g0n (Priest) on Apr 30, 2006 at 09:44 UTC
Just to labour the point, I ran this code against the ./lib of the 5.8.8 source to get a rough idea of the number of subs in the core modules: `use File::Find; find(\&wanted,'.'); print "Total = $counter\n"; sub wanted { if ($_ =~/(?:\.pl\|\.pm)/) { open (my $fh,"<",$_) or die "$!"; while (<$fh>) { if ($_ =~/^sub\s+/){$counter++} } close $fh; } }` [download] It reported 5394 subs. Importing that lot could use a lot of RAM, and take a while to compile ;-) -------------------------------------------------------------- "If there is such a phenomenon as absolute evil, it consists in treating another human being as a thing." John Brunner, "The Shockwave Rider". Can you spare 2 minutes to help with my research? If so, please click here	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: standard perl routine
by g0n (Priest) on Apr 30, 2006 at 09:44 UTC


use File::Find;

find(\&wanted,'.');

print "Total = $counter\n";
sub wanted
{
    if ($_ =~/(?:\.pl|\.pm)/)
    {
        open (my $fh,"<",$_) or die "$!";

        while (<$fh>)
        {
           if ($_ =~/^sub\s+/){$counter++}
        }
        close $fh;
    }
}
[download]

It reported 5394 subs. Importing that lot could use a *lot* of RAM, and take a while to compile ;-)

--------------------------------------------------------------

"If there is such a phenomenon as absolute evil, it consists in treating another human being as a thing."
John Brunner, "The Shockwave Rider".

Can you spare 2 minutes to help with my research? If so, please click here

[reply]
[d/l]