I have a string like this:
$a = "Mike , Tree ";
I want to reverse it to "Tree, Mike".
Is there any function to do that?
views:
123answers:
4
+9
A:
Use the reverse function:
$reversed = join(",", reverse split(",", $string));
The MYYN
2010-07-08 14:33:39
hey that's a fancy feature in perl... I like.
rockinthesixstring
2010-07-08 14:34:39
This sample code is not using the reverse function in scalar context.
mobrule
2010-07-08 14:36:06
corrected. thx.
The MYYN
2010-07-08 14:38:04
i like this answer ....
Tree
2010-07-08 14:48:14
Nice..Looks very "functional". :)
Bart J
2010-07-08 19:14:33
+1
A:
If you are guaranteed the your string that you want to be reversed will be separated by commas then I would split the string at the comma and then go through the array it produces from the length of it to 0 and append it to an empty string.
Kyra
2010-07-08 14:34:33
+10
A:
Split the string into two strings, flip them, and rejoin them.
Or, use a regex:
$a =~ s/(.+),(.+)/\2,\1/g;
Andy Lester
2010-07-08 14:34:55
Better than Roque answer from my point of view as the regex allow you more control on how to deal with extra space. In your case I would exactly do $a =~ s/(\S+)\s*,\s*(\S+)/\2, \1/g;
radius
2010-07-08 14:40:07
\1, etc in the replacement side is long deprecated and will trigger a warning; do this instead: `$a =~ s/(.+),(.+)/$2,$1/g;`
ysth
2010-07-08 14:46:33
**@radius:** in rogue's answer you could still do a regex to replace the space, though if you're going to regex, you might as just do it all in one step.
vol7ron
2010-07-08 16:22:34
+1
A:
Just for your problem.
$a =~ s/([A-Za-z]+)([^A-Za-z]+)([A-Za-z]+)/$3$2$1/;
[JJ@JJ trunk]$ perl -E '$a = "Mike , Tree "; $a =~ s/([A-Za-z]+)([^A-Za-z]+)([A-Za-z]+)/$3$2$1/; say $a;'
Tree , Mike
J.J.
2010-07-08 18:20:36