Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

RE: RE: (3)Perl Golf (Pig Latin dialect + clever regexes)

by japhy (Canon)
on Jul 24, 2000 at 02:54 UTC ( #24019=note: print w/replies, xml ) Need Help??

in reply to RE: (3)Perl Golf (Pig Latin dialect)
in thread Pig Latin

Pig Latin words are not supposed to begin with consonants. flea becomes ea-flay and leaf becomes eaf-lay. If you use hyphens, you can create that distinction. If you don't want to use a visible character, though, insert a NUL. Oh, and since when does about become aboutway? I never heard of the 'insert a w' rule.
The preceeding code allows you to decode the string. While it does effect length(), a simple (?) work-around would be:
package PigLatin; use overload ( q{""} => sub { (my $str = ${ $_[0] }) =~ tr/\0//d; return $str; }, fallback => 1, ); sub to { my ($class,$word) = @_; $word =~ s/\b(qu|[^\W0-9_aeiou]+)?(\w+)/$1?"$2\0$1ay":"$2\0ay"/egi; bless \$word, $class; } sub from { my $word = substr ${ $_[-1] }, 0, -2; # $word has the \0 in it return join "", reverse split /\0/, $word; } 1;
This module would be used as so:
use PigLatin; $plain = "Practical Extraction and Report Language"; $funny = to PigLatin $plain; $reg = from PigLatin $funny;
length($funny) would be 50, but length($$funny) is 55, due to the 5 added NULs.


Log In?

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2019-04-20 08:30 GMT
Find Nodes?
    Voting Booth?
    I am most likely to install a new module from CPAN if:

    Results (108 votes). Check out past polls.

    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!