view release on metacpan or  search on metacpan

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

    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;
    s/([^\$\w\d])WWWWWww([^\w\d])/$1getservbyport$2/g;
    s/([^\$\w\d])WWWWwWW([^\w\d])/$1getservbyname$2/g;
    s/([^\$\w\d])WWWWwWw([^\w\d])/$1gethostbyname$2/g;
    s/([^\$\w\d])WWWWwwW([^\w\d])/$1gethostbyaddr$2/g;
    s/([^\$\w\d])WWWWwww([^\w\d])/$1getnetbyname$2/g;
    s/([^\$\w\d])WWWwWWW([^\w\d])/$1getnetbyaddr$2/g;
    s/([^\$\w\d])WWWwWWw([^\w\d])/$1setprotoent$2/g;
    s/([^\$\w\d])WWWwWwW([^\w\d])/$1setpriority$2/g;

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

    s/([^\$\w\d])WwwwWw([^\w\d])/$1bless$2/g;
    s/([^\$\w\d])WwwwwW([^\w\d])/$1atan2$2/g;
    s/([^\$\w\d])Wwwwww([^\w\d])/$1alarm$2/g;
    s/([^\$\w\d])wWWWWW([^\w\d])/$1CHECK$2/g;
    s/([^\$\w\d])wWWWWw([^\w\d])/$1BEGIN$2/g;
    s/([^\$\w\d])wWWWwW([^\w\d])/$1when$2/g;
    s/([^\$\w\d])wWWWww([^\w\d])/$1warn$2/g;
    s/([^\$\w\d])wWWwWW([^\w\d])/$1wait$2/g;
    s/([^\$\w\d])wWWwWw([^\w\d])/$1time$2/g;
    s/([^\$\w\d])wWWwwW([^\w\d])/$1tied$2/g;
    s/([^\$\w\d])wWWwww([^\w\d])/$1tell$2/g;
    s/([^\$\w\d])wWwWWW([^\w\d])/$1stat$2/g;
    s/([^\$\w\d])wWwWWw([^\w\d])/$1sqrt$2/g;
    s/([^\$\w\d])wWwWwW([^\w\d])/$1sort$2/g;
    s/([^\$\w\d])wWwWww([^\w\d])/$1send$2/g;
    s/([^\$\w\d])wWwwWW([^\w\d])/$1seek$2/g;
    s/([^\$\w\d])wWwwWw([^\w\d])/$1redo$2/g;
    s/([^\$\w\d])wWwwwW([^\w\d])/$1recv$2/g;
    s/([^\$\w\d])wWwwww([^\w\d])/$1read$2/g;
    s/([^\$\w\d])wwWWWW([^\w\d])/$1rand$2/g;
    s/([^\$\w\d])wwWWWw([^\w\d])/$1push$2/g;
    s/([^\$\w\d])wwWWwW([^\w\d])/$1pipe$2/g;
    s/([^\$\w\d])wwWWww([^\w\d])/$1pack$2/g;
    s/([^\$\w\d])wwWwWW([^\w\d])/$1open$2/g;
    s/([^\$\w\d])wwWwWw([^\w\d])/$1next$2/g;
    s/([^\$\w\d])wwWwwW([^\w\d])/$1lock$2/g;
    s/([^\$\w\d])wwWwww([^\w\d])/$1link$2/g;
    s/([^\$\w\d])wwwWWW([^\w\d])/$1last$2/g;
    s/([^\$\w\d])wwwWWw([^\w\d])/$1kill$2/g;
    s/([^\$\w\d])wwwWwW([^\w\d])/$1keys$2/g;
    s/([^\$\w\d])wwwWww([^\w\d])/$1join$2/g;
    s/([^\$\w\d])wwwwWW([^\w\d])/$1grep$2/g;
    s/([^\$\w\d])wwwwWw([^\w\d])/$1goto$2/g;
    s/([^\$\w\d])wwwwwW([^\w\d])/$1glob$2/g;
    s/([^\$\w\d])wwwwww([^\w\d])/$1getc$2/g;
    s/([^\$\w\d])WWWWW([^\w\d])/$1fork$2/g;
    s/([^\$\w\d])WWWWw([^\w\d])/$1exit$2/g;
    s/([^\$\w\d])WWWwW([^\w\d])/$1exec$2/g;
    s/([^\$\w\d])WWWww([^\w\d])/$1eval$2/g;
    s/([^\$\w\d])WWwWW([^\w\d])/$1else$2/g;
    s/([^\$\w\d])WWwWw([^\w\d])/$1each$2/g;
    s/([^\$\w\d])WWwwW([^\w\d])/$1dump$2/g;
    s/([^\$\w\d])WWwww([^\w\d])/$1chop$2/g;
    s/([^\$\w\d])WwWWW([^\w\d])/$1bind$2/g;
    s/([^\$\w\d])WwWWw([^\w\d])/$1INIT$2/g;
    s/([^\$\w\d])WwWwW([^\w\d])/$1CORE$2/g;
    s/([^\$\w\d])WwWww([^\w\d])/$1xor$2/g;
    s/([^\$\w\d])WwwWW([^\w\d])/$1vec$2/g;
    s/([^\$\w\d])WwwWw([^\w\d])/$1use$2/g;
    s/([^\$\w\d])WwwwW([^\w\d])/$1tie$2/g;
    s/([^\$\w\d])Wwwww([^\w\d])/$1sub$2/g;
    s/([^\$\w\d])wWWWW([^\w\d])/$1sin$2/g;
    s/([^\$\w\d])wWWWw([^\w\d])/$1say$2/g;
    s/([^\$\w\d])wWWwW([^\w\d])/$1ref$2/g;
    s/([^\$\w\d])wWWww([^\w\d])/$1pos$2/g;
    s/([^\$\w\d])wWwWW([^\w\d])/$1pop$2/g;
    s/([^\$\w\d])wWwWw([^\w\d])/$1our$2/g;
    s/([^\$\w\d])wWwwW([^\w\d])/$1ord$2/g;
    s/([^\$\w\d])wWwww([^\w\d])/$1oct$2/g;
    s/([^\$\w\d])wwWWW([^\w\d])/$1not$2/g;
    s/([^\$\w\d])wwWWw([^\w\d])/$1map$2/g;
    s/([^\$\w\d])wwWwW([^\w\d])/$1log$2/g;
    s/([^\$\w\d])wwWww([^\w\d])/$1int$2/g;
    s/([^\$\w\d])wwwWW([^\w\d])/$1hex$2/g;
    s/([^\$\w\d])wwwWw([^\w\d])/$1for$2/g;
    s/([^\$\w\d])wwwwW([^\w\d])/$1exp$2/g;
    s/([^\$\w\d])wwwww([^\w\d])/$1eof$2/g;
    s/([^\$\w\d])WWWW([^\w\d])/$1die$2/g;
    s/([^\$\w\d])WWWw([^\w\d])/$1cos$2/g;
    s/([^\$\w\d])WWwW([^\w\d])/$1cmp$2/g;
    s/([^\$\w\d])WWww([^\w\d])/$1chr$2/g;
    s/([^\$\w\d])WwWW([^\w\d])/$1and$2/g;
    s/([^\$\w\d])WwWw([^\w\d])/$1abs$2/g;
    s/([^\$\w\d])WwwW([^\w\d])/$1END$2/g;
    s/([^\$\w\d])Wwww([^\w\d])/$1uc$2/g;
    s/([^\$\w\d])wWWW([^\w\d])/$1tr$2/g;
    s/([^\$\w\d])wWWw([^\w\d])/$1qx$2/g;
    s/([^\$\w\d])wWwW([^\w\d])/$1qw$2/g;
    s/([^\$\w\d])wWww([^\w\d])/$1qr$2/g;
    s/([^\$\w\d])wwWW([^\w\d])/$1qq$2/g;
    s/([^\$\w\d])wwWw([^\w\d])/$1or$2/g;
    s/([^\$\w\d])wwwW([^\w\d])/$1no$2/g;
    s/([^\$\w\d])wwww([^\w\d])/$1ne$2/g;
    s/([^\$\w\d])WWW([^\w\d])/$1my$2/g;
    s/([^\$\w\d])WWw([^\w\d])/$1lt$2/g;
    s/([^\$\w\d])WwW([^\w\d])/$1le$2/g;
    s/([^\$\w\d])Www([^\w\d])/$1lc$2/g;
    s/([^\$\w\d])wWW([^\w\d])/$1if$2/g;
    s/([^\$\w\d])wWw([^\w\d])/$1gt$2/g;
    s/([^\$\w\d])wwW([^\w\d])/$1ge$2/g;
    s/([^\$\w\d])www([^\w\d])/$1eq$2/g;
    s/([^\$\w\d])WW([^\w\d])/$1do$2/g;
    s/([^\$\w\d])Ww([^\w\d])/$1y$2/g;
    s/([^\$\w\d])wW([^\w\d])/$1x$2/g;
    s/([^\$\w\d])ww([^\w\d])/$1s$2/g;
    s/([^\$\w\d])W([^\w\d])/$1q$2/g;
    s/([^\$\w\d])w([^\w\d])/$1m$2/g;
};

1;
__END__

=head1 NAME

Acme::W - Enjoy programing with planting grass!

=head1 SYNOPSIS

  use Acme::W;

  print 'wwwwwwwwwwwwwwwwww';

=head1 DESCRIPTION

Acme::W enables programing with planting grass.
For example when you execute the following code,displayed "Hello World".

  use Acme::W;

  print "Hello World\n";