Perl поменять два слова

Question

Хорошего дня,

У меня есть простая рабочая рутина в Perl, что SWAPS два слова:

т.е. John Doe -----> Doe John

Вот оно:

sub SwapTokens() 
{ 
    my ($currentToken) = @_; 

    $currentToken =~ s/([A-Za-z]+) ([A-Za-z]+)/$2 $1/; 
    # $currentToken =~ s/(\u\L) (\u\L)/$2 $1/; 
    return $currentToken; 
} 

следующие выходы использования именно то, что я хочу:

print &SwapTokens("John Doe"); 

Но когда я раскомментирую строку '$ currentToken = ~ s/(\ u \ L) (\ u \ L)/$ 2 $ 1 /;

У меня есть ошибка. Я что-то упускаю, похоже, что мой синтаксис верен.

ТИА,

Coson

Answer 1

\L означает "lowercase till \E"; т. е. в какой-то момент ее необходимо выполнить на уровне \E. У вас нет \E в вашем регулярном выражении, поэтому оно недействительно; добавляя \E после каждого \L получает скрипт для компиляции, хотя я не знаю, что вы на самом деле пытаетесь выполнить там.

Answer 2

\u не является атомом регулярного выражения, который соответствует заглавной букве. \L не является атомом регулярного выражения, который соответствует ряду строчных букв. Вы ищете

s/(\p{Lu}\p{Ll}+) (\p{Lu}\p{Ll}+)/$2 $1/; 

\p{Lu} Uppercase letter. 
\p{Ll} Lowercase letter. 

$ unichars '\p{Lu}' | head -n 5 
A U+0041 LATIN CAPITAL LETTER A 
B U+0042 LATIN CAPITAL LETTER B 
C U+0043 LATIN CAPITAL LETTER C 
D U+0044 LATIN CAPITAL LETTER D 
E U+0045 LATIN CAPITAL LETTER E 

$ unichars '\p{Ll}' | head -n 5 
a U+0061 LATIN SMALL LETTER A 
b U+0062 LATIN SMALL LETTER B 
c U+0063 LATIN SMALL LETTER C 
d U+0064 LATIN SMALL LETTER D 
e U+0065 LATIN SMALL LETTER E 

Answer 3

Может быть, вы ищете что-то вроде этого:

sub swap_the_words { 
    my ($processed_string) = @_; 
    $processed_string =~ s/([A-Z][A-Za-z]+) ([A-Z][A-Za-z]+)/$2 $1/; 
    return $processed_string; 
} 
print swap_the_words('John Doe'); # prints Doe John 

Что касается \u и \l, они хороши для изменения строки - не регулярное выражение. Например, вы можете немного изменить сценарий, как это ...

$processed_string =~ s/([a-z]+) ([a-z]+)/\u\L$2\E \u\L$1\E/i; 
    ... 
    print swap_the_words('cOsOn hAcKeR'); # Hacker Coson 

... так что ваши слова не только местами, но, учитывая надлежащее дело, а также. Обратите внимание, однако, что эти модификаторы используются в заменяющей части оператора s///.