字符的替換怎樣才能快？

royalzhang

比如我有個規(guī)則，A代表001，B代表010，如何把字符串‘ABAB'變成’001010001010‘呢？
如果用正則表達(dá)式，
my $str = 'AB';
$str =~ s/A/001/;
$str =~ s/B/010/;
say $str;
這樣是不是太慢了，因?yàn)檫@樣的操作很多。
謝謝！
另外，tr/\001-\255// 是什么意思？將什么字符替換掉了？謝謝。

yinyuemi

回復(fù) 1# royalzhang

1. %hash=("A","001","B","010");
   
2. $str = "ABAB";
   
3. $str =~ s/./$hash{$&}/g;
   
4. print $str
   

復(fù)制代碼

zhlong8

慢不慢試過才知道，而且你的代碼只能替換頭一個吧少個 /g

royalzhang

謝謝 3# zhlong8 和 2# yinyuemi
問題基本搞定，我是想用兩個字符串做異或運(yùn)算，后來發(fā)現(xiàn)字符串可以直接XOR，不需要轉(zhuǎn)換成二進(jìn)制的表示。還是謝謝二位的回復(fù)。

第二個問題，能幫我回答下嗎？我對二進(jìn)制和unicode不熟悉：

另外，tr/\001-\255// 是什么意思？將什么字符替換掉了？謝謝。

xiyoulaoyuanjia

1. The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches.  To avoid this penalty, you can
   
2.                extract the same substring by using "@-"
   
3. $str =~ s/./$hash{substr($str, $-[0], $+[0] - $-[0])}/g;
   

復(fù)制代碼

jason680

回復(fù) 4# royalzhang

$ perldoc perlop
please search with "tr/"  or "Transliterates" to see more detail information.

       tr/SEARCHLIST/REPLACEMENTLIST/cds
       y/SEARCHLIST/REPLACEMENTLIST/cds
               Transliterates all occurrences of the characters found in the
               search list with the corresponding character in the replacement
               list. ...

--------------------------------------------
By the way,
if you want to delete something, you need the d option for tr function to do it.

if you want to mapping ASCII char 0 to 255, you can do follow way in tr function or some function(s///, m//,...) :
1. \xNN for Hexdecimal number
    \x00-\xFF
2. \NNN for Octal number
    \000-\377

cdtits

同樣想知道，如何才是最快的？