Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Best 8 Character Obfuscation (Golf-ish)

by Zaxo (Archbishop)
on Jun 04, 2001 at 17:19 UTC ( #85465=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download



    Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Node Status?
    node history
    Node Type: note [id://85465]
    help
    Chatterbox?
    [Discipulus]: get them all printed on screen
    Discipulus ;=)
    [shmem]: silly question, silly answer:
    [Discipulus]: i know, i know..
    [shmem]: man perlfunc |perl -nle '$ok++ if /Alphabetical Listing of Perl Functions/;if($ok ){$s{$1}++if /^ (\w+)/}}{for(keys %s){$f="prototype \\\&CORE::$_"; eval"$f"||delete $CORE::{$_}}print for sort keys%CORE::'
    [shmem]: well, there are some builtins which don't have a prototype...
    [Discipulus]: eh eh.. i was looking in toke.c but dunno if is already used
    [shmem]: oh the whitespace in the regex got condensed, meh
    [shmem]: should be /^ {7}(\w+)/ or such
    [shmem]: ...at least for my perldoc on Linux debian 8

    How do I use this? | Other CB clients
    Other Users?
    Others wandering the Monastery: (9)
    As of 2017-05-23 10:06 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?