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)); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Yoda Speak Translator - well it's official
by Anonymous Monk on Sep 22, 2003 at 09:51 UTC | |
by Anonymous Monk on Sep 22, 2003 at 13:40 UTC | |
by kirolindo (Initiate) on Jun 13, 2012 at 14:39 UTC | |
by Anonymous Monk on Jun 14, 2012 at 06:33 UTC | |
by Anonymous Monk on May 14, 2004 at 14:51 UTC |
In Section
Cool Uses for Perl