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

Tre*_*ree 2 perl

我有一个像这样的字符串:

$a = "Mike , Tree "; 
Run Code Online (Sandbox Code Playgroud)

我想把它改回来"Tree, Mike".

这有什么功能吗?

And*_*ter 10

将字符串拆分为两个字符串,翻转它们并重新加入它们.

或者,使用正则表达式:

$a =~ s/(.+),(.+)/\2,\1/g;
Run Code Online (Sandbox Code Playgroud)

  • 1,等替换方长期弃用并会引发警告; 这样做:`$ a = ~s /(.+),(.+)/$ 2,$ 1/g;` (5认同)
  • 这里的`g`修饰符似乎是多余的,不是吗? (2认同)

mik*_*iku 9

使用reverse功能:

$reversed = join(",", reverse split(",", $string));
Run Code Online (Sandbox Code Playgroud)