一个简单的替换问题

pony2001mx

我有一个字符串，比如$a="a-afoa-fd--f----a", 我需要在每两个字母间插入一个0，我的命令是$a=~s/(\w)(\w)/$1\0$2/g，有错误，请大家指点，非常谢谢！！

huang6894

1. perl -e '$a="a-afoa-fd--f----a";$a=~s/(\w)(\w)/${1}0${2}/g;print $a'
   
2. a-a0fo0a-f0d--f----a

复制代码

pony2001mx

谢谢Huang， 我理解如何处理0， 但您的输出中fo之间少了一个0。应该是a-a0f0o0a-f0d--f----a才对呀？

jason680

回复 3# pony2001mx

$ perl -le '$a="a-afoa-fd--f----a";$a=~s/(\w)(?=\w)/${1}0/g;print $a'
a-a0f0o0a-f0d--f----a


more detail information
$ perldoc perlre
NAME
    perlre - Perl regular expressions

DESCRIPTION
    This page describes the syntax of regular expressions in Perl.
    ...
    Look-Around Assertions
              Look-around assertions are zero-width patterns which match a
              specific pattern without including it in $&. Positive assertions
              match when their subpattern matches, negative assertions match
              when their subpattern fails. Look-behind matches text up to the
              current match position, look-ahead matches text following the
              current match position.

                "(?=pattern)"
                  A zero-width positive look-ahead assertion. For example,
                  "/\w+(?=\t)/" matches a word followed by a tab, without
                  including the tab in $&.
                ...

zwin506

#!/usr/bin/perl
my $a="a-afoa-fd--f----a";
my @chars=split//,$a;
my $max=$#chars;
my $string;
for(my $i=0;$i<$max;$i++){
        if($chars[$i]=~m/\w/ and $chars[${i}+1]=~m/\w/){
                print $chars[$i]."0";
        }else{
                print $chars[$i];
        }
}
print "\n";

运行结果：a-a0f0o0a-f0d--f----
（正则表达式的那个方法很不错(?=\w)，我试试其他的办法，看来也行。）

pony2001mx

谢谢 jason680等人的回复，我明白了很多道理，谢谢!