Perl'de, bir karakter kümesini tek bir geçişte farklı karakter kümeleriyle nasıl değiştirebilirim? ~ Ve x karakterleri -

Verilen

Ax~B~xCx~xDx

... yayarlar ...

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

Birlikte ~ karakterleri değiştirmek istiyorum. İki kez dize üzerinden geçerek

ben yazabilirim ...

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

... ama bu (gibi görünüyor).

Neden RegEx kullanıyorsunuz? Neden sadece ipin üzerinden kendini tekrarlamıyorsun? –

Çünkü bu ... ... PEEEEEEEEEERL !!!! Nah daha ciddiye, regeeksler tüm şeyleri yazmak zorunda kalmadan daha kısa ve daha hızlıdır. – m0skit0

@CoreyOgburn Çünkü dizenin üzerinde yineleme yaparsam perlde C (veya FORTRAN?) Yazıyorum ve amaç perl yazmak. –

Karakterlere göre değiştirmek için "transliterate" kullanın. Bu deneyin:

tr/~x/\-~/;

2012-02-09 19:51:33 m0skit0

"transliterate", "tercüme" değil –

Köşeli parantezler gereksizdir ve burada işe yaramaz. – Sean

Muhtemelen haklısınız, ama [yanlış öğretildim] (http://www.troubleshooters.com/codecorn/littperl/perlreg.htm#DoingTranslations). – m0skit0

Eğer tek karakterler ile uğraşıyoruz yana, tr /// bariz cevap: Ancak

tr/~x/-~/;

, sen s /// başa ihtiyacımız olacak uzun diziler:

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

2012-02-09 21:37:28 ikegami

cevap