Question

我有一个这样的字符串：

$a = "Mike , Tree ";

我想将其反转为"Tree, Mike"。

有没有这样做的功能？

Answer 1

将字符串拆分为两个字符串，翻转它们，然后重新加入它们。

或者，使用正则表达式：

$a =~ s/(.+),(.+)/\2,\1/g;

Answer 2

使用reverse功能：

$reversed = join(",", reverse split(",", $string));

Answer 3

如果你保证你想要反转的字符串将用逗号分隔，那么我会将字符串拆分为逗号，然后将它生成的数组从它的长度转换为0并将其追加到空字符串。

Answer 4

只是为了你的问题。

$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

如何反转字符串中两个单词的顺序？

4 个答案: