请问如何替换

zhongkeli

一个字符串$tr="围殴   户  将";
还有一个数组，有三个字符，三个字符分别为(啊是才);
怎么才能把数组的三个字符分别替换到上面那个字符串的空格呢,最后字符串变为“围殴啊是将才”

zhlong8

s/ \w+ /啊是才/

zhongkeli

回复 2# zhlong8


    如果空格是全角的话怎么办，还有如果句子还有其他标点符号呢

zhlong8

回复  zhlong8


    如果空格是全角的话怎么办，还有如果句子还有其他标点符号呢
zhongkeli 发表于 2011-03-12 14:24

    你是不是该去学学正则表达式……全角就在 s/// 中用全角的，标点符号和别的字符又有什么区别

zhongkeli

回复 4# zhlong8

                                $str1="　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　";
                $i=0;
                $str=substr($result[3],$i,$i+1);
                while($i<$len&&$str1=~s/　+/$str/g){
                   $i++;
                   $str=substr($result[3],$i,$i+1);
                                }
                         他只能替换第一个全角空格 请问是什么问题呢

zhlong8

回复  zhlong8

                                $str1="　　　　　　　　　　　　　　　　　　　　　　 ...
zhongkeli 发表于 2011-03-12 14:34

    有点晕，你的看不太懂

1. my $str = 'a b c d';
   
2. 
   
3. my @chars = qw(这 是 一个 没有);
   
4. 
   
5. my $ch = shift @chars;
   
6. while ($str =~ s/ /$ch/) {
   
7.         $ch = shift @chars;
   
8. }
   
9. 
   
10. print $str

复制代码

zhongkeli

回复 6# zhlong8


      他有这个错误

zhlong8

回复  zhlong8


     他有这个错误
zhongkeli 发表于 2011-03-12 14:57

    数组长度不够是 shift 出来的就是 undef，把 undef 插入字符串当然会警告。看看你的数组长度够不够吧