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

Piggy.pl

by suaveant (Parson)
on Jul 17, 2001 at 19:23 UTC ( #97341=obfuscated: print w/replies, xml ) Need Help??

This is my piggy... ok ok, I cheated a bit, and I used some ideas from Camel Code, so shoot me :) This is my first honest attempt. I could not get it to work under warnings without spending even more time I don't have :(

But anyway, pass my piggie a file, or some text on STDIN, and watch it go... whee! :)

#!/usr/bin/perl use strict; my$a='my@out;while(<>){s/ (\A|\n|[^\w-])([aeiou])?([\w\-]*(\\ \'\w +)?)/$1.&convert($2,$3)/ggies;push@out,$_}prin t("PigTalk\nV1.0\n\n",join"",@out);sub';my$b='co nvert{my($a,$b)=@_;if($a){return"$a$b-ay";}unless($b ){return}if(length$b==1){return$b}my$uc=0;if($b=~s/^( [A- Z])/lc($1)/e){$uc=1};$b=~s/^([^aeiou][^aeiouy]?)//; $a= $1;$b=ucfirst($b)if$uc;return"$b-${a}ay";}print;';$ a=~ s/\s+//g;$b=~s/\s+//g;;;eval"$a $b"; __DATA__ my$a= ' my@out;while(<>){s/(\A|\n|[^\w-])([aeiou])?([\w\-]*( \\\'\w+)?)/$1.&convert($2,$3)/ggies;push@out,$_}print(" PigTalk\nV1.0\n\n",join"",@out);sub';my$b='convert{my( $a,$b)=@_;if($a){return"$a$b-ay";}unless($b){return}i f(length$b==1){return$b}my$uc=0;if($b=~s/^([A-Z])/lc ($1)/e){$uc=1};$b=~s/^([^aeiou][^aeiouy]?)// ;$a=$1;$b=ucfirst($b)if$uc;return"$b-${a} ay";}pri nt;'; $a=~s /\s+// g;$b =~s/ \s+// g;;;e val" $a $b "; _ _DAT A__ my$ a='my @out

                - Ant

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://97341]
Approved by root
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2017-05-23 04:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?