W Perlu, w jaki sposób mogę zamienić zestaw znaków na inny zestaw znaków w pojedynczym przejściu? Biorąc

Question

...

Ax~B~xCx~xDx 

... emitować ...

A~-B-~C~-~D~ 

Chcę wymienić ~ znaków z - a x znaków z ~.

mogę napisać ...

s/~/-/g;s/x/~/g; 

... ale to (wygląda na to) przechodzi nad ciągiem dwukrotnie.

Answer 1

Użyj "transliterate" do zastąpienia w oparciu o znaki. Spróbuj tego:

tr/~x/\-~/; 

Answer 2

Ponieważ masz do czynienia z pojedynczymi znakami, tr /// jest oczywista odpowiedź:

tr/~x/-~/; 

jednak będziesz potrzebować s /// do czynienia z dłuższe sekwencje:

my %subs = ('~' => '-', 'x' => '~'); 
my $pat = join '|', map quotemeta, keys %subs; 
s/($pat)/$subs{$1}/g;