Anonymous user
Phrase reversals: Difference between revisions
→{{header|Perl}}: clean up & add regex solution
Simple9371 (talk | contribs) (Added Batch File Implementation) |
(→{{header|Perl}}: clean up & add regex solution) |
||
Line 638:
=={{header|Perl}}==
<lang perl>my $s = "rosetta code phrase reversal";▼
my $rev_ew = join(" ", reverse split(/ /,reverse $s));▼
my $rev_wo = join(" ", reverse split(/ /,$s));▼
<lang perl>use feature 'say';
printf "0. %-20s: %s\n", "input", $s;▼
say "1. String reversed : ", scalar reverse $s;
# Or, using a regex:
say "2. Each word reversed : ", $s =~ s/[^ ]+/reverse $&/gre;</lang>
{{out}}
<pre>
0.
1.
2.
3.
2. Each word reversed : attesor edoc esarhp lasrever
</pre>
| |||