take a few more things literally

[infobot.git] / src / Modules / piglatin.pl

diff --git a/src/Modules/piglatin.pl b/src/Modules/piglatin.pl
index 07d17b8acbff06221789c82ff238bd4581a4cfc6..799ae77d3a22b4908931c5d698fcce5fc2a94949 100644 (file)
--- a/src/Modules/piglatin.pl
+++ b/src/Modules/piglatin.pl
@@ -13,11 +13,15 @@ sub piglatin
   my $suffix = 'ay';
 
   # FIXME: does not handle:
-  #  punctuation and hyphens
-  #  y as vowel "style" -> "ylestay"
+  #  non-trailing punctuation and hyphens
+  #  y as vowel 'style' -> 'ylestay'
   #  contractions
   for my $word (split /\s+/, $text) {
-    my $pigword;
+    my ($pigword, $postfix);
+    #($word,$postfix) = $word =~ s/^([a-z]*)([,.!\?;:'"])?$//i;
+    if ($word =~ s/([,.!\?;:'"])$//i) {
+      $postfix = $1;
+    }
     if ($word =~ /^(qu)(.*)/ ) {
       $pigword = "$2$1$suffix";
     } elsif ($word =~ /^(Qu)(.)(.*)/ ) {
@@ -30,7 +34,7 @@ sub piglatin
       $pigword = $word . 'w' . $suffix;
     }
     $piglatin .= ' ' if $piglatin;
-    $piglatin .= $pigword;
+    $piglatin .= $pigword . $postfix;
   }
   &::performStrictReply($piglatin||'failed');
 }