Re: Pig Latin


No such thing as a small change
	PerlMonks

Re: Pig Latin

by Anonymous Monk

on Feb 17, 2000 at 02:16 UTC ( [id://3593]=note: print w/replies, xml )

Need Help??

in reply to Pig Latin

It depends on how general you want to be. My first run attempt is:

while(<>) {
    s{ \b([bcdfghjklmpqrstvwxyz]?)(\w+) }
     { if($1) {$2.$1.'ay'}
       else   {$2."way"} }egix;
    print;
    }
[download]

The problem is that this doesn't correctly treat cases like th, sh, pr, etc. where there's really a compound starting consonant. Maybe, this would be a bit more correct:

while(<>) {
    s{ \b([bcdfghjklmpqrstvwxyz]*)([aeiou]+)(\w*) }
     { if($1) {$2.$3.$1.'ay'}
       else   {$2.$3."way"} }egix;
    print;
    }
[download]

Comment on Re: Pig Latin Select or Download Code

Replies are listed 'Best First'.

RE: (2) Pig Latin (another smidge closer)
by ybiC (Prior) on Jul 23, 2000 at 17:35 UTC

qu|

[...]

(qu)

[...]

Bonus points for guessing the cliche phrase I tested this with. <grin>

#!/usr/bin/perl -w
use strict;
while(<>) {
    s{ \b(qu|[bcdfghjklmpnrstvwxyz]*)([aeiou]+)(\w*) }
     { if($1) {$2.$3.$1.'ay'}
       else {$2.$3."way"} }egix;
     print;
     }
# END
[download]

ybiC

[reply]
[d/l]

In Section Seekers of Perl Wisdom