Acme-W
view release on metacpan or search on metacpan
lib/Acme/W.pm view on Meta::CPAN
package Acme::W;
use strict;
use warnings;
use Filter::Simple;
our $VERSION = '0.03';
FILTER_ONLY code_no_comments => sub {
s/([^\$\w\d])getprotobynumber([^\w\d])/$1WWWWWWw$2/g;
s/([^\$\w\d])getprotobyname([^\w\d])/$1WWWWWwW$2/g;
s/([^\$\w\d])getservbyport([^\w\d])/$1WWWWWww$2/g;
s/([^\$\w\d])getservbyname([^\w\d])/$1WWWWwWW$2/g;
s/([^\$\w\d])gethostbyname([^\w\d])/$1WWWWwWw$2/g;
s/([^\$\w\d])gethostbyaddr([^\w\d])/$1WWWWwwW$2/g;
s/([^\$\w\d])getnetbyname([^\w\d])/$1WWWWwww$2/g;
s/([^\$\w\d])getnetbyaddr([^\w\d])/$1WWWwWWW$2/g;
s/([^\$\w\d])setprotoent([^\w\d])/$1WWWwWWw$2/g;
s/([^\$\w\d])setpriority([^\w\d])/$1WWWwWwW$2/g;
s/([^\$\w\d])getsockname([^\w\d])/$1WWWwWww$2/g;
s/([^\$\w\d])getprotoent([^\w\d])/$1WWWwwWW$2/g;
s/([^\$\w\d])getpriority([^\w\d])/$1WWWwwWw$2/g;
s/([^\$\w\d])getpeername([^\w\d])/$1WWWwwwW$2/g;
s/([^\$\w\d])endprotoent([^\w\d])/$1WWWwwww$2/g;
s/([^\$\w\d])__PACKAGE__([^\w\d])/$1WWwWWWW$2/g;
s/([^\$\w\d])socketpair([^\w\d])/$1WWwWWWw$2/g;
s/([^\$\w\d])setsockopt([^\w\d])/$1WWwWWwW$2/g;
s/([^\$\w\d])setservent([^\w\d])/$1WWwWWww$2/g;
s/([^\$\w\d])sethostent([^\w\d])/$1WWwWwWW$2/g;
s/([^\$\w\d])getsockopt([^\w\d])/$1WWwWwWw$2/g;
s/([^\$\w\d])getservent([^\w\d])/$1WWwWwwW$2/g;
s/([^\$\w\d])gethostent([^\w\d])/$1WWwWwww$2/g;
s/([^\$\w\d])endservent([^\w\d])/$1WWwwWWW$2/g;
s/([^\$\w\d])endhostent([^\w\d])/$1WWwwWWw$2/g;
s/([^\$\w\d])wantarray([^\w\d])/$1WWwwWwW$2/g;
s/([^\$\w\d])setnetent([^\w\d])/$1WWwwWww$2/g;
s/([^\$\w\d])rewinddir([^\w\d])/$1WWwwwWW$2/g;
s/([^\$\w\d])quotemeta([^\w\d])/$1WWwwwWw$2/g;
s/([^\$\w\d])prototype([^\w\d])/$1WWwwwwW$2/g;
s/([^\$\w\d])localtime([^\w\d])/$1WWwwwww$2/g;
s/([^\$\w\d])getnetent([^\w\d])/$1WwWWWWW$2/g;
s/([^\$\w\d])endnetent([^\w\d])/$1WwWWWWw$2/g;
s/([^\$\w\d])UNITCHECK([^\w\d])/$1WwWWWwW$2/g;
s/([^\$\w\d])truncate([^\w\d])/$1WwWWWww$2/g;
s/([^\$\w\d])syswrite([^\w\d])/$1WwWWwWW$2/g;
s/([^\$\w\d])shutdown([^\w\d])/$1WwWWwWw$2/g;
s/([^\$\w\d])shmwrite([^\w\d])/$1WwWWwwW$2/g;
s/([^\$\w\d])setpwent([^\w\d])/$1WwWWwww$2/g;
s/([^\$\w\d])setgrent([^\w\d])/$1WwWwWWW$2/g;
s/([^\$\w\d])readpipe([^\w\d])/$1WwWwWWw$2/g;
s/([^\$\w\d])readlink([^\w\d])/$1WwWwWwW$2/g;
s/([^\$\w\d])readline([^\w\d])/$1WwWwWww$2/g;
s/([^\$\w\d])getpwuid([^\w\d])/$1WwWwwWW$2/g;
s/([^\$\w\d])getpwnam([^\w\d])/$1WwWwwWw$2/g;
s/([^\$\w\d])getpwent([^\w\d])/$1WwWwwwW$2/g;
s/([^\$\w\d])getlogin([^\w\d])/$1WwWwwww$2/g;
s/([^\$\w\d])getgrnam([^\w\d])/$1WwwWWWW$2/g;
s/([^\$\w\d])getgrgid([^\w\d])/$1WwwWWWw$2/g;
s/([^\$\w\d])getgrent([^\w\d])/$1WwwWWwW$2/g;
s/([^\$\w\d])formline([^\w\d])/$1WwwWWww$2/g;
s/([^\$\w\d])endpwent([^\w\d])/$1WwwWwWW$2/g;
s/([^\$\w\d])endgrent([^\w\d])/$1WwwWwWw$2/g;
s/([^\$\w\d])dbmclose([^\w\d])/$1WwwWwwW$2/g;
s/([^\$\w\d])continue([^\w\d])/$1WwwWwww$2/g;
s/([^\$\w\d])closedir([^\w\d])/$1WwwwWWW$2/g;
s/([^\$\w\d])__LINE__([^\w\d])/$1WwwwWWw$2/g;
s/([^\$\w\d])__FILE__([^\w\d])/$1WwwwWwW$2/g;
s/([^\$\w\d])__DATA__([^\w\d])/$1WwwwWww$2/g;
s/([^\$\w\d])AUTOLOAD([^\w\d])/$1WwwwwWW$2/g;
s/([^\$\w\d])waitpid([^\w\d])/$1WwwwwWw$2/g;
s/([^\$\w\d])unshift([^\w\d])/$1WwwwwwW$2/g;
s/([^\$\w\d])ucfirst([^\w\d])/$1Wwwwwww$2/g;
s/([^\$\w\d])telldir([^\w\d])/$1wWWWWWW$2/g;
s/([^\$\w\d])sysseek([^\w\d])/$1wWWWWWw$2/g;
s/([^\$\w\d])sysread([^\w\d])/$1wWWWWwW$2/g;
s/([^\$\w\d])sysopen([^\w\d])/$1wWWWWww$2/g;
s/([^\$\w\d])syscall([^\w\d])/$1wWWWwWW$2/g;
s/([^\$\w\d])symlink([^\w\d])/$1wWWWwWw$2/g;
s/([^\$\w\d])sprintf([^\w\d])/$1wWWWwwW$2/g;
s/([^\$\w\d])shmread([^\w\d])/$1wWWWwww$2/g;
s/([^\$\w\d])setpgrp([^\w\d])/$1wWWwWWW$2/g;
s/([^\$\w\d])seekdir([^\w\d])/$1wWWwWWw$2/g;
s/([^\$\w\d])reverse([^\w\d])/$1wWWwWwW$2/g;
s/([^\$\w\d])require([^\w\d])/$1wWWwWww$2/g;
s/([^\$\w\d])readdir([^\w\d])/$1wWWwwWW$2/g;
s/([^\$\w\d])package([^\w\d])/$1wWWwwWw$2/g;
s/([^\$\w\d])opendir([^\w\d])/$1wWWwwwW$2/g;
s/([^\$\w\d])lcfirst([^\w\d])/$1wWWwwww$2/g;
s/([^\$\w\d])getppid([^\w\d])/$1wWwWWWW$2/g;
s/([^\$\w\d])getpgrp([^\w\d])/$1wWwWWWw$2/g;
s/([^\$\w\d])foreach([^\w\d])/$1wWwWWwW$2/g;
s/([^\$\w\d])defined([^\w\d])/$1wWwWWww$2/g;
s/([^\$\w\d])default([^\w\d])/$1wWwWwWW$2/g;
s/([^\$\w\d])dbmopen([^\w\d])/$1wWwWwWw$2/g;
s/([^\$\w\d])connect([^\w\d])/$1wWwWwwW$2/g;
s/([^\$\w\d])binmode([^\w\d])/$1wWwWwww$2/g;
s/([^\$\w\d])__END__([^\w\d])/$1wWwwWWW$2/g;
s/([^\$\w\d])DESTROY([^\w\d])/$1wWwwWWw$2/g;
s/([^\$\w\d])values([^\w\d])/$1wWwwWwW$2/g;
s/([^\$\w\d])unpack([^\w\d])/$1wWwwWww$2/g;
s/([^\$\w\d])unlink([^\w\d])/$1wWwwwWW$2/g;
s/([^\$\w\d])unless([^\w\d])/$1wWwwwWw$2/g;
s/([^\$\w\d])system([^\w\d])/$1wWwwwwW$2/g;
s/([^\$\w\d])substr([^\w\d])/$1wWwwwww$2/g;
s/([^\$\w\d])splice([^\w\d])/$1wwWWWWW$2/g;
s/([^\$\w\d])socket([^\w\d])/$1wwWWWWw$2/g;
s/([^\$\w\d])shmget([^\w\d])/$1wwWWWwW$2/g;
s/([^\$\w\d])shmctl([^\w\d])/$1wwWWWww$2/g;
s/([^\$\w\d])semget([^\w\d])/$1wwWWwWW$2/g;
s/([^\$\w\d])semctl([^\w\d])/$1wwWWwWw$2/g;
s/([^\$\w\d])select([^\w\d])/$1wwWWwwW$2/g;
s/([^\$\w\d])scalar([^\w\d])/$1wwWWwww$2/g;
s/([^\$\w\d])rindex([^\w\d])/$1wwWwWWW$2/g;
s/([^\$\w\d])return([^\w\d])/$1wwWwWWw$2/g;
s/([^\$\w\d])rename([^\w\d])/$1wwWwWwW$2/g;
s/([^\$\w\d])printf([^\w\d])/$1wwWwWww$2/g;
s/([^\$\w\d])msgsnd([^\w\d])/$1wwWwwWW$2/g;
s/([^\$\w\d])msgrcv([^\w\d])/$1wwWwwWw$2/g;
lib/Acme/W.pm view on Meta::CPAN
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;
s/([^\$\w\d])WwwwWWW([^\w\d])/$1closedir$2/g;
s/([^\$\w\d])WwwwWWw([^\w\d])/$1__LINE__$2/g;
s/([^\$\w\d])WwwwWwW([^\w\d])/$1__FILE__$2/g;
s/([^\$\w\d])WwwwWww([^\w\d])/$1__DATA__$2/g;
s/([^\$\w\d])WwwwwWW([^\w\d])/$1AUTOLOAD$2/g;
s/([^\$\w\d])WwwwwWw([^\w\d])/$1waitpid$2/g;
s/([^\$\w\d])WwwwwwW([^\w\d])/$1unshift$2/g;
s/([^\$\w\d])Wwwwwww([^\w\d])/$1ucfirst$2/g;
s/([^\$\w\d])wWWWWWW([^\w\d])/$1telldir$2/g;
s/([^\$\w\d])wWWWWWw([^\w\d])/$1sysseek$2/g;
s/([^\$\w\d])wWWWWwW([^\w\d])/$1sysread$2/g;
s/([^\$\w\d])wWWWWww([^\w\d])/$1sysopen$2/g;
s/([^\$\w\d])wWWWwWW([^\w\d])/$1syscall$2/g;
s/([^\$\w\d])wWWWwWw([^\w\d])/$1symlink$2/g;
s/([^\$\w\d])wWWWwwW([^\w\d])/$1sprintf$2/g;
s/([^\$\w\d])wWWWwww([^\w\d])/$1shmread$2/g;
s/([^\$\w\d])wWWwWWW([^\w\d])/$1setpgrp$2/g;
s/([^\$\w\d])wWWwWWw([^\w\d])/$1seekdir$2/g;
s/([^\$\w\d])wWWwWwW([^\w\d])/$1reverse$2/g;
s/([^\$\w\d])wWWwWww([^\w\d])/$1require$2/g;
s/([^\$\w\d])wWWwwWW([^\w\d])/$1readdir$2/g;
s/([^\$\w\d])wWWwwWw([^\w\d])/$1package$2/g;
s/([^\$\w\d])wWWwwwW([^\w\d])/$1opendir$2/g;
s/([^\$\w\d])wWWwwww([^\w\d])/$1lcfirst$2/g;
s/([^\$\w\d])wWwWWWW([^\w\d])/$1getppid$2/g;
s/([^\$\w\d])wWwWWWw([^\w\d])/$1getpgrp$2/g;
s/([^\$\w\d])wWwWWwW([^\w\d])/$1foreach$2/g;
s/([^\$\w\d])wWwWWww([^\w\d])/$1defined$2/g;
s/([^\$\w\d])wWwWwWW([^\w\d])/$1default$2/g;
s/([^\$\w\d])wWwWwWw([^\w\d])/$1dbmopen$2/g;
s/([^\$\w\d])wWwWwwW([^\w\d])/$1connect$2/g;
s/([^\$\w\d])wWwWwww([^\w\d])/$1binmode$2/g;
s/([^\$\w\d])wWwwWWW([^\w\d])/$1__END__$2/g;
s/([^\$\w\d])wWwwWWw([^\w\d])/$1DESTROY$2/g;
s/([^\$\w\d])wWwwWwW([^\w\d])/$1values$2/g;
s/([^\$\w\d])wWwwWww([^\w\d])/$1unpack$2/g;
s/([^\$\w\d])wWwwwWW([^\w\d])/$1unlink$2/g;
s/([^\$\w\d])wWwwwWw([^\w\d])/$1unless$2/g;
s/([^\$\w\d])wWwwwwW([^\w\d])/$1system$2/g;
s/([^\$\w\d])wWwwwww([^\w\d])/$1substr$2/g;
s/([^\$\w\d])wwWWWWW([^\w\d])/$1splice$2/g;
s/([^\$\w\d])wwWWWWw([^\w\d])/$1socket$2/g;
s/([^\$\w\d])wwWWWwW([^\w\d])/$1shmget$2/g;
s/([^\$\w\d])wwWWWww([^\w\d])/$1shmctl$2/g;
s/([^\$\w\d])wwWWwWW([^\w\d])/$1semget$2/g;
s/([^\$\w\d])wwWWwWw([^\w\d])/$1semctl$2/g;
s/([^\$\w\d])wwWWwwW([^\w\d])/$1select$2/g;
s/([^\$\w\d])wwWWwww([^\w\d])/$1scalar$2/g;
s/([^\$\w\d])wwWwWWW([^\w\d])/$1rindex$2/g;
s/([^\$\w\d])wwWwWWw([^\w\d])/$1return$2/g;
s/([^\$\w\d])wwWwWwW([^\w\d])/$1rename$2/g;
s/([^\$\w\d])wwWwWww([^\w\d])/$1printf$2/g;
s/([^\$\w\d])wwWwwWW([^\w\d])/$1msgsnd$2/g;
s/([^\$\w\d])wwWwwWw([^\w\d])/$1msgrcv$2/g;
( run in 0.819 second using v1.01-cache-2.11-cpan-5735350b133 )