view release on metacpan or  search on metacpan

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

    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;
    s/([^\$\w\d])WWWwWww([^\w\d])/$1getsockname$2/g;
    s/([^\$\w\d])WWWwwWW([^\w\d])/$1getprotoent$2/g;
    s/([^\$\w\d])WWWwwWw([^\w\d])/$1getpriority$2/g;
    s/([^\$\w\d])WWWwwwW([^\w\d])/$1getpeername$2/g;
    s/([^\$\w\d])WWWwwww([^\w\d])/$1endprotoent$2/g;
    s/([^\$\w\d])WWwWWWW([^\w\d])/$1__PACKAGE__$2/g;
    s/([^\$\w\d])WWwWWWw([^\w\d])/$1socketpair$2/g;
    s/([^\$\w\d])WWwWWwW([^\w\d])/$1setsockopt$2/g;
    s/([^\$\w\d])WWwWWww([^\w\d])/$1setservent$2/g;
    s/([^\$\w\d])WWwWwWW([^\w\d])/$1sethostent$2/g;
    s/([^\$\w\d])WWwWwWw([^\w\d])/$1getsockopt$2/g;
    s/([^\$\w\d])WWwWwwW([^\w\d])/$1getservent$2/g;
    s/([^\$\w\d])WWwWwww([^\w\d])/$1gethostent$2/g;
    s/([^\$\w\d])WWwwWWW([^\w\d])/$1endservent$2/g;
    s/([^\$\w\d])WWwwWWw([^\w\d])/$1endhostent$2/g;
    s/([^\$\w\d])WWwwWwW([^\w\d])/$1wantarray$2/g;
    s/([^\$\w\d])WWwwWww([^\w\d])/$1setnetent$2/g;
    s/([^\$\w\d])WWwwwWW([^\w\d])/$1rewinddir$2/g;
    s/([^\$\w\d])WWwwwWw([^\w\d])/$1quotemeta$2/g;
    s/([^\$\w\d])WWwwwwW([^\w\d])/$1prototype$2/g;
    s/([^\$\w\d])WWwwwww([^\w\d])/$1localtime$2/g;
    s/([^\$\w\d])WwWWWWW([^\w\d])/$1getnetent$2/g;
    s/([^\$\w\d])WwWWWWw([^\w\d])/$1endnetent$2/g;
    s/([^\$\w\d])WwWWWwW([^\w\d])/$1UNITCHECK$2/g;
    s/([^\$\w\d])WwWWWww([^\w\d])/$1truncate$2/g;
    s/([^\$\w\d])WwWWwWW([^\w\d])/$1syswrite$2/g;
    s/([^\$\w\d])WwWWwWw([^\w\d])/$1shutdown$2/g;
    s/([^\$\w\d])WwWWwwW([^\w\d])/$1shmwrite$2/g;
    s/([^\$\w\d])WwWWwww([^\w\d])/$1setpwent$2/g;
    s/([^\$\w\d])WwWwWWW([^\w\d])/$1setgrent$2/g;
    s/([^\$\w\d])WwWwWWw([^\w\d])/$1readpipe$2/g;
    s/([^\$\w\d])WwWwWwW([^\w\d])/$1readlink$2/g;
    s/([^\$\w\d])WwWwWww([^\w\d])/$1readline$2/g;
    s/([^\$\w\d])WwWwwWW([^\w\d])/$1getpwuid$2/g;
    s/([^\$\w\d])WwWwwWw([^\w\d])/$1getpwnam$2/g;
    s/([^\$\w\d])WwWwwwW([^\w\d])/$1getpwent$2/g;
    s/([^\$\w\d])WwWwwww([^\w\d])/$1getlogin$2/g;
    s/([^\$\w\d])WwwWWWW([^\w\d])/$1getgrnam$2/g;
    s/([^\$\w\d])WwwWWWw([^\w\d])/$1getgrgid$2/g;
    s/([^\$\w\d])WwwWWwW([^\w\d])/$1getgrent$2/g;
    s/([^\$\w\d])WwwWWww([^\w\d])/$1formline$2/g;
    s/([^\$\w\d])WwwWwWW([^\w\d])/$1endpwent$2/g;
    s/([^\$\w\d])WwwWwWw([^\w\d])/$1endgrent$2/g;
    s/([^\$\w\d])WwwWwwW([^\w\d])/$1dbmclose$2/g;
    s/([^\$\w\d])WwwWwww([^\w\d])/$1continue$2/g;

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

    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";

And the executed code is rewrote.

  use Acme::W;
  
  WWwwWW "Hello World\n";
  
  
  =pod
  # This file rewrote by Acme::W version 0.01.
  # The following codes are original codes.
  
  use Acme::W;
  
  print "Hello World\n";
  
  
  =cut

In addition,you execute rewrote code,to similar displayed "Hello World". 

=head1 AUTHOR

Takashi Higashigata E<lt>dameo at cpan.orgE<gt>

=head1 SEE ALSO

C<Acme::Bleach>

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut