| Subject: | [PATCH] addition of new lolcatese vocabulary |
Patch adds a few un-lolcated words into %repl, including:
* more values for 'you', 'my', 'ing', 'are', 'oh', 'love', 'your', 'what'
* new keys: 'tious', 'sure\b', 'ok\b'
| Subject: | LOLCAT.diff |
--- LOLCAT.pm.old 2007-10-25 11:32:05.000000000 +0800
+++ LOLCAT.pm 2007-10-25 11:31:39.000000000 +0800
@@ -13,11 +13,11 @@
our $VERSION = '0.0.3';
my %repl = (
- q(i'?m\b) => 'im', 'you\b' => 'yu',
+ q(i'?m\b) => 'im', 'you\b' => [qw/yu yous yoo u/],
cture => 'kshur', unless => 'unles',
'the\b' => 'teh', more => 'moar',
- my => 'muh', are => 'r',
- ing => 'in', ease => 'eez',
+ my => [qw/muh mah/], are => [qw/r is ar/],
+ ing => [qw/in ins/], ease => 'eez',
eese => 'eez', ph => 'f',
'as\b' => 'az', seriously => 'srsly',
'er\b' => 'r', sion => 'shun',
@@ -26,20 +26,22 @@
'of\b' => [qw/of ov of/], 'uestion' => 'wesjun',
want => 'wants', 'ead\b' => 'edd',
ucke => 'ukki', sion => 'shun',
- oth => 'udd', '\boh\b' => 'o',
+ oth => 'udd', '\boh\b' => [q/o ohs/],
eak => 'ekk', age => 'uj',
- like => [qw/likes liek/], love => [qw/loves lub lubs/],
+ like => [qw/likes liek/], love => [qw/loves lub lubs luv/],
q(you'?re)=> [ qw/yore yr/ ], '(?!e)ight'=> 'ite',
'have a' => 'has', '\bis\b' => 'ar teh',
- your => [ qw/yur ur yore/ ], '\ba\b' => q(),
- '(?!ues)tion' => 'shun', what => 'wut',
+ your => [ qw/yur ur yore yoar/ ], '\ba\b' => q(),
+ '(?!ues)tion' => 'shun', what => [q/wut whut/],
who => 'hoo', q(') => q(),
'ese\b' => 'eez', outh => 'owf',
scio => 'shu', esque => 'esk',
ture => 'chur', '\btoo?\b'=> [qw/to t 2 to t/],
- 'ove\b' => [ qw/oov ove uuv uv oove/ ],
+ tious => 'shus', 'sure\b' => 'shur',
+ 'ok\b' => [ qw/'k kay/ ],
+ 'ove\b' => [ qw/oov ove uuv uv oove/ ],
for => [ qw/for 4 fr fur for foar/ ],
- thank => [ qw/fank tank thx thnx/ ],
+ thank => [ qw/fank tank thx thnx/ ],
good => [ qw/gud goed guud/ ],
'(?:hello|\bhi\b|\bhey\b|howdy|\byo\b),?' => 'oh hai,',
really => [ qw/rly rily rilly rilley/ ],