Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

RE: (2) Pig Latin (another smidge closer)

by ybiC (Prior)
on Jul 23, 2000 at 17:35 UTC ( #23977=note: print w/ replies, xml ) Need Help??

in reply to Re: Pig Latin
in thread Pig Latin

Adding qu| at the front of $1 and removing q from [...] provides support for the "qu" combination.   My first attempted tweak was to add (qu) inside $1's [...] but that hosed things for words like "jumped".

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

Comment on RE: (2) Pig Latin (another smidge closer)
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://23977]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2015-10-07 11:05 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (179 votes), past polls