значения подкачки

Question

Мне было интересно, существует ли простой/чистый способ обмена значениями следующим образом, возможно, с использованием одного регулярного выражения/замены?

Если $ a заканчивается на «x», замените его на «y». И точно так же, если $ а концы с «у», поменять его с «х»:

$a = "test_x"; 

if ($a =~ /x$/) { 
    $a =~ s/x$/y/; 
} else { 
    $a =~ s/y$/x/; 
} 

я могу думать только о чем-то вроде этого:

$a = $a =~ /x$/ ? s/x$/y/ : s/y$/x/; 

Answer 1

Это просто:

$a =~ s/x$/y/ or $a =~ s/y$/x/; 

Это почти всегда избыточно, чтобы выполнить матч, чтобы увидеть, следует ли вам делать замену.

Другой способ:

substr($a,-1) =~ y/xy/yx/; 

Answer 2

Вы можете сжать его в линию, как вы шоу, возможно, немного приятнее с /r (с v5.14 +).

Или вы можете подготовить хэш. Это также освобождает код от жесткого кодирования определенных символов.

my %swap = (x => 'y', y => 'x', a => 'b', b => 'a'); # expand as needed 

my @test = map { 'test_' . $_ } qw(x y a b Z); 

for my $string (@test) 
{ 
    $string =~ s| (.)$ | $swap{$1} // $1 |ex; 

    say $string; 
} 

// (определенный или) есть обрабатывать случай, когда последний символ не находится в хэш, в этом случае $swap{$1} возвращает undef. Спасибо user52889 за комментарий.

Answer 3

Для замены отдельных символов вы можете использовать tr///.

Не уверен, что ваши критерии чистоты и легкости, но вы даже можете сделать это в правой части подстановки:

$xy = "test_x" =~ s`([xy])$`$1=~tr/xy/yx/r`re; # $xy is "test_y"