Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

use all core modules, pragmas and extensions

by Anonymous Monk
on Oct 23, 2019 at 14:55 UTC ( #11107898=perlmeditation: print w/replies, xml ) Need Help??

I wondered what would happen if one were to use all core modules. Here's what happened:

19 core libs can not be simply used, without being fatal, so they're commented out (ymmv on versions ne 5.26.2).

The perl interpreter grows to about 150 megabytes.

A series of warnings is printed which may or may not have any value. This is why I'm sharing it here. In case the warnings indicate real issues, or interesting things to investigate.

This 1-liner generates the ~650 line script, redirects stdout to the file "useallcore" and runs "perl useallcore" which prints the errors, and lines from ps about the perl process.

perl -MExtUtils::Installed -MModule::Metadata -e '$not=q/_charnames|au +touse|blib|charnames|Devel::Peek|encoding|encoding::warnings|feature| +File::Spec::VMS|filetest|GDBM_File|if|O|ok|open|Pod::Simple::Debug|so +rt|Thread|threads/;$not={map{$_=>1}split/\|/,$not};print"#!/usr/bin/p +erl\n# Load all core Perl modules, pragmas and extensions\n# Exceptio +ns, to prevent errors:\n".(join "\n", map {"#$_"} sort {lc$a cmp lc$b +} keys %$not).")\n\n";@_=grep/\.pm/,(ExtUtils::Installed->files("Perl +"));for(@_){$m=Module::Metadata->new_from_file($_)->{module} or next; +push@m,$m}for(sort{lc$a cmp lc$b}@m){print $not->{$_}?"#":"","use $_; +\n"}print"\nprint `ps -v | grep \"\$\$\"`;\n"' > useallcore; perl use +allcore

Replies are listed 'Best First'.
Re: use all core modules, pragmas and extensions
by Fletch (Chancellor) on Oct 23, 2019 at 17:54 UTC

    Insert obvious obligatory link to your favourite {X ALL THE THINGS | X = "USE"} meme generator image here ==>

    (Seriously though that's completely crazy but kind of neat.)

    The cake is a lie.
    The cake is a lie.
    The cake is a lie.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://11107898]
Approved by hippo
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2020-08-10 15:58 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (58 votes). Check out past polls.