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

Re: Yoda Speak Translator - well it's official

by grep (Monsignor)
on Jun 17, 2002 at 03:19 UTC ( #175019=note: print w/ replies, xml ) Need Help??


in reply to Yoda Speak Translator

I have just released V.01 of the yoda speak (yodish) translator.

Things that will be added site:

  • Papers on translating Yodaish
  • A downloadable module
  • Suggestion Box (until them /msg me)
  • Graphics :)
  • Things added to the module:

  • More accurate results
  • Handling contractions
  • Translating back to english
  • www.yoda-speak.org



    grep
    Just me, the boy and these two monks, no questions asked.


    Comment on Re: Yoda Speak Translator - well it's official
    Download Code
    Re: Yoda Speak Translator - well it's official
    by Anonymous Monk on Aug 16, 2002 at 07:19 UTC
      #!/usr/bin/perl -w use strict; my @sentences = ('I will teach you', 'The truth is out there', 'That is an Imperial shuttle', 'My husband is giant dork', 'These fish are tasty', 'When you reach 900 years, you will not look as good' +, 'I can help you', 'You see the future', 'The future is always in motion', 'There is no try', 'You have found someone, hmmm', 'It can save you', 'Master Obi-Wan has lost a planet', 'It is difficult to see' ); foreach (@sentences) { my $speak=yoda($_); $speak =~ s/ i / I /g; print "$speak\n"; } sub yoda { my ($sentence) = @_; my $Pivot=join '|', qw/is be will show do try are teach have look +help see can learn has/; # Move along, nothing to see here return $sentence unless ($sentence=~/\b$Pivot\b/); # Rearrange our words $sentence="$' $`$&"; # Clear leading spaces and Capitalise $sentence =~ s/^\s+//; $sentence = ucfirst(lc($sentence)); }
        Very good, but you miss "has" to translate Lost a planet master obi-wan has which leaves obi-wan lowercase ;) Also there is a t missing from $pivot and a weird char at the end of sentenceX)) in $sentence = ucfirst(lc($sentence));
          It seems to be the cut and paste action I used that messed it up. I got the perl rewritten in JavaScript if anyone's interested
    Re^2: Yoda Speak Translator - well it's official
    by adrianh (Chancellor) on Aug 18, 2002 at 09:23 UTC

      Surely that should be:

      Yoda Speak Translator - official it is

      <groan>

    Log In?
    Username:
    Password:

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

    How do I use this? | Other CB clients
    Other Users?
    Others making s'mores by the fire in the courtyard of the Monastery: (8)
    As of 2014-07-23 23:35 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My favorite superfluous repetitious redundant duplicative phrase is:









      Results (154 votes), past polls