#!/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));
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.