[PerlChina] China-pm Digest, Vol 10, Issue 11

cnhack TNT cnhacktnt at gmail.com
Sat Mar 18 11:36:12 PST 2006


hi!xiyu lu,
   正则应该有方法实现,不过一时没想起来呵呵,不过 TIMTOWTDI 嘛,有很多方法的:

> #!/usr/bin/perl -W
> # cnhacktnt {AT} perlchina.org
> use strict;
>
> my $pattern = "RRWWXXWW";
> my $char = "X";
> my $string = "11001010";
> print $pattern,"\n";
> substr( $string,pos( $pattern )-1,1 )=$char while ( $pattern=~ m/$char/g
> );
> print $string;
>
如上的代码应该能很好的完成任务,enjoy :-)


On 2/17/06, xiyu lu <phoeneer at gmail.com> wrote:
>
> 谢谢, 我的问题是对于一个字符串"RRWWXXWW", 根据取其中'X'的字符的位置,替换另一个字符串"11001010"中相应位置的字符为'X',
> 替换后的字符串变成"1100XX10",
> 不过我已经用split/join的方式将它转换然后比较了.我想知道在s/pattern/replacement中是否可以通过正则表达式简单实现?
> 还是只能通过这样转换的方式实现?
>
>
-------------- next part --------------
q?????!???,r??m??m???????j+??j)r?j??j?r????:?|???t???!???


More information about the China-pm mailing list