免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1783 | 回复: 6

字符的替换怎样才能快? [复制链接]

论坛徽章:
0
发表于 2012-08-29 00:27 |显示全部楼层
本帖最后由 royalzhang 于 2012-08-29 01:01 编辑

比如我有个规则,A代表001,B代表010,如何把字符串‘ABAB'变成’001010001010‘呢?
如果用正则表达式,
my $str = 'AB';
$str =~ s/A/001/;
$str =~ s/B/010/;
say $str;
这样是不是太慢了,因为这样的操作很多。
谢谢!
另外,tr/\001-\255// 是什么意思?将什么字符替换掉了?谢谢。

论坛徽章:
2
射手座
日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14
发表于 2012-08-29 02:43 |显示全部楼层
本帖最后由 yinyuemi 于 2012-08-29 02:43 编辑

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

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2012-08-29 08:43 |显示全部楼层
慢不慢试过才知道,而且你的代码只能替换头一个吧少个 /g

论坛徽章:
0
发表于 2012-08-29 10:30 |显示全部楼层
谢谢 3# zhlong8 2# yinyuemi
问题基本搞定,我是想用两个字符串做异或运算,后来发现字符串可以直接XOR,不需要转换成二进制的表示。还是谢谢二位的回复。

第二个问题,能帮我回答下吗?我对二进制和unicode不熟悉:
另外,tr/\001-\255// 是什么意思?将什么字符替换掉了?谢谢。


论坛徽章:
0
发表于 2012-08-29 11:14 |显示全部楼层
  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;
复制代码

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2012-08-29 11:41 |显示全部楼层
回复 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

论坛徽章:
2
CU大牛徽章
日期:2013-04-17 11:46:28CU大牛徽章
日期:2013-04-17 11:46:39
发表于 2012-08-29 11:43 |显示全部楼层
同样想知道,如何才是最快的?
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP