Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Yoda Speak Translator - well it's official

by Anonymous Monk
on Aug 16, 2002 at 07:19 UTC ( #190606=note: print w/ replies, xml ) Need Help??

in reply to Re: Yoda Speak Translator - well it's official
in thread Yoda Speak Translator

#!/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)); }

Comment on Re: Yoda Speak Translator - well it's official
Download Code
Re: Re: Yoda Speak Translator - well it's official
by Anonymous Monk on Sep 22, 2003 at 09:51 UTC
    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
        Could I get the JAVASCRIPT for that, If at all possible? :) Thanks.
        Hey, very interesting script. May I get the javascript version of this Thanks Kiro

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (9)
As of 2015-05-24 20:26 GMT
Find Nodes?
    Voting Booth?

    In my home, the TV remote control is ...

    Results (476 votes), past polls