view release on metacpan or  search on metacpan

lib/Acme/W.pm  view on Meta::CPAN

    s/([^\$\w\d])elsif([^\w\d])/$1WwWwWw$2/g;
    s/([^\$\w\d])crypt([^\w\d])/$1WwWwwW$2/g;
    s/([^\$\w\d])close([^\w\d])/$1WwWwww$2/g;
    s/([^\$\w\d])chown([^\w\d])/$1WwwWWW$2/g;
    s/([^\$\w\d])chomp([^\w\d])/$1WwwWWw$2/g;
    s/([^\$\w\d])chmod([^\w\d])/$1WwwWwW$2/g;
    s/([^\$\w\d])chdir([^\w\d])/$1WwwWww$2/g;
    s/([^\$\w\d])break([^\w\d])/$1WwwwWW$2/g;
    s/([^\$\w\d])bless([^\w\d])/$1WwwwWw$2/g;
    s/([^\$\w\d])atan2([^\w\d])/$1WwwwwW$2/g;
    s/([^\$\w\d])alarm([^\w\d])/$1Wwwwww$2/g;
    s/([^\$\w\d])CHECK([^\w\d])/$1wWWWWW$2/g;
    s/([^\$\w\d])BEGIN([^\w\d])/$1wWWWWw$2/g;
    s/([^\$\w\d])when([^\w\d])/$1wWWWwW$2/g;
    s/([^\$\w\d])warn([^\w\d])/$1wWWWww$2/g;
    s/([^\$\w\d])wait([^\w\d])/$1wWWwWW$2/g;
    s/([^\$\w\d])time([^\w\d])/$1wWWwWw$2/g;
    s/([^\$\w\d])tied([^\w\d])/$1wWWwwW$2/g;
    s/([^\$\w\d])tell([^\w\d])/$1wWWwww$2/g;
    s/([^\$\w\d])stat([^\w\d])/$1wWwWWW$2/g;
    s/([^\$\w\d])sqrt([^\w\d])/$1wWwWWw$2/g;
    s/([^\$\w\d])sort([^\w\d])/$1wWwWwW$2/g;
    s/([^\$\w\d])send([^\w\d])/$1wWwWww$2/g;
    s/([^\$\w\d])seek([^\w\d])/$1wWwwWW$2/g;
    s/([^\$\w\d])redo([^\w\d])/$1wWwwWw$2/g;
    s/([^\$\w\d])recv([^\w\d])/$1wWwwwW$2/g;
    s/([^\$\w\d])read([^\w\d])/$1wWwwww$2/g;
    s/([^\$\w\d])rand([^\w\d])/$1wwWWWW$2/g;
    s/([^\$\w\d])push([^\w\d])/$1wwWWWw$2/g;
    s/([^\$\w\d])pipe([^\w\d])/$1wwWWwW$2/g;
    s/([^\$\w\d])pack([^\w\d])/$1wwWWww$2/g;
    s/([^\$\w\d])open([^\w\d])/$1wwWwWW$2/g;
    s/([^\$\w\d])next([^\w\d])/$1wwWwWw$2/g;
    s/([^\$\w\d])lock([^\w\d])/$1wwWwwW$2/g;
    s/([^\$\w\d])link([^\w\d])/$1wwWwww$2/g;
    s/([^\$\w\d])last([^\w\d])/$1wwwWWW$2/g;
    s/([^\$\w\d])kill([^\w\d])/$1wwwWWw$2/g;
    s/([^\$\w\d])keys([^\w\d])/$1wwwWwW$2/g;
    s/([^\$\w\d])join([^\w\d])/$1wwwWww$2/g;
    s/([^\$\w\d])grep([^\w\d])/$1wwwwWW$2/g;
    s/([^\$\w\d])goto([^\w\d])/$1wwwwWw$2/g;
    s/([^\$\w\d])glob([^\w\d])/$1wwwwwW$2/g;
    s/([^\$\w\d])getc([^\w\d])/$1wwwwww$2/g;
    s/([^\$\w\d])fork([^\w\d])/$1WWWWW$2/g;
    s/([^\$\w\d])exit([^\w\d])/$1WWWWw$2/g;
    s/([^\$\w\d])exec([^\w\d])/$1WWWwW$2/g;
    s/([^\$\w\d])eval([^\w\d])/$1WWWww$2/g;
    s/([^\$\w\d])else([^\w\d])/$1WWwWW$2/g;
    s/([^\$\w\d])each([^\w\d])/$1WWwWw$2/g;
    s/([^\$\w\d])dump([^\w\d])/$1WWwwW$2/g;
    s/([^\$\w\d])chop([^\w\d])/$1WWwww$2/g;
    s/([^\$\w\d])bind([^\w\d])/$1WwWWW$2/g;
    s/([^\$\w\d])INIT([^\w\d])/$1WwWWw$2/g;
    s/([^\$\w\d])CORE([^\w\d])/$1WwWwW$2/g;
    s/([^\$\w\d])xor([^\w\d])/$1WwWww$2/g;
    s/([^\$\w\d])vec([^\w\d])/$1WwwWW$2/g;
    s/([^\$\w\d])use([^\w\d])/$1WwwWw$2/g;
    s/([^\$\w\d])tie([^\w\d])/$1WwwwW$2/g;
    s/([^\$\w\d])sub([^\w\d])/$1Wwwww$2/g;
    s/([^\$\w\d])sin([^\w\d])/$1wWWWW$2/g;
    s/([^\$\w\d])say([^\w\d])/$1wWWWw$2/g;
    s/([^\$\w\d])ref([^\w\d])/$1wWWwW$2/g;
    s/([^\$\w\d])pos([^\w\d])/$1wWWww$2/g;
    s/([^\$\w\d])pop([^\w\d])/$1wWwWW$2/g;
    s/([^\$\w\d])our([^\w\d])/$1wWwWw$2/g;
    s/([^\$\w\d])ord([^\w\d])/$1wWwwW$2/g;
    s/([^\$\w\d])oct([^\w\d])/$1wWwww$2/g;
    s/([^\$\w\d])not([^\w\d])/$1wwWWW$2/g;
    s/([^\$\w\d])map([^\w\d])/$1wwWWw$2/g;
    s/([^\$\w\d])log([^\w\d])/$1wwWwW$2/g;
    s/([^\$\w\d])int([^\w\d])/$1wwWww$2/g;
    s/([^\$\w\d])hex([^\w\d])/$1wwwWW$2/g;
    s/([^\$\w\d])for([^\w\d])/$1wwwWw$2/g;
    s/([^\$\w\d])exp([^\w\d])/$1wwwwW$2/g;
    s/([^\$\w\d])eof([^\w\d])/$1wwwww$2/g;
    s/([^\$\w\d])die([^\w\d])/$1WWWW$2/g;
    s/([^\$\w\d])cos([^\w\d])/$1WWWw$2/g;
    s/([^\$\w\d])cmp([^\w\d])/$1WWwW$2/g;
    s/([^\$\w\d])chr([^\w\d])/$1WWww$2/g;
    s/([^\$\w\d])and([^\w\d])/$1WwWW$2/g;
    s/([^\$\w\d])abs([^\w\d])/$1WwWw$2/g;
    s/([^\$\w\d])END([^\w\d])/$1WwwW$2/g;
    s/([^\$\w\d])uc([^\w\d])/$1Wwww$2/g;
    s/([^\$\w\d])tr([^\w\d])/$1wWWW$2/g;
    s/([^\$\w\d])qx([^\w\d])/$1wWWw$2/g;
    s/([^\$\w\d])qw([^\w\d])/$1wWwW$2/g;
    s/([^\$\w\d])qr([^\w\d])/$1wWww$2/g;
    s/([^\$\w\d])qq([^\w\d])/$1wwWW$2/g;
    s/([^\$\w\d])or([^\w\d])/$1wwWw$2/g;
    s/([^\$\w\d])no([^\w\d])/$1wwwW$2/g;
    s/([^\$\w\d])ne([^\w\d])/$1wwww$2/g;
    s/([^\$\w\d])my([^\w\d])/$1WWW$2/g;
    s/([^\$\w\d])lt([^\w\d])/$1WWw$2/g;
    s/([^\$\w\d])le([^\w\d])/$1WwW$2/g;
    s/([^\$\w\d])lc([^\w\d])/$1Www$2/g;
    s/([^\$\w\d])if([^\w\d])/$1wWW$2/g;
    s/([^\$\w\d])gt([^\w\d])/$1wWw$2/g;
    s/([^\$\w\d])ge([^\w\d])/$1wwW$2/g;
    s/([^\$\w\d])eq([^\w\d])/$1www$2/g;
    s/([^\$\w\d])do([^\w\d])/$1WW$2/g;
    s/([^\$\w\d])y([^\w\d])/$1Ww$2/g;
    s/([^\$\w\d])x([^\w\d])/$1wW$2/g;
    s/([^\$\w\d])s([^\w\d])/$1ww$2/g;
    s/([^\$\w\d])q([^\w\d])/$1W$2/g;
    s/([^\$\w\d])m([^\w\d])/$1w$2/g;
}, all => sub {
    unless ($_ =~ /This file rewrote by Acme::W/) {
        open my $fh,'+<',"$0" or die "Can't rewrite '$0'\n";
        my @org = <$fh>;
        seek $fh,0,0;
        print $fh "use Acme::W;\n$_";
        print $fh "\n=pod\n";
        print $fh "# This file rewrote by Acme::W version $VERSION.\n";
        print $fh "# The following codes are original codes.\n\n";
        print $fh @org;
        print $fh "\n=cut\n";
        close $fh;
    }
}, code_no_comments => sub {
    s/([^\$\w\d])WWWWWWw([^\w\d])/$1getprotobynumber$2/g;
    s/([^\$\w\d])WWWWWwW([^\w\d])/$1getprotobyname$2/g;