遇到一个map使用问题

enditman

@a=("world！","me！");
$aa="hello$1";
map {s/(.*)/$aa/;$_}@a;
print "变量\数组：",@a,"\n";


@a=("world！","me！");
map {s/(.*)/hello$1/;$_}@a;
print "字符串\数组：",@a,"\n";


$a="world!";
$aa="hello$1";
map {s/(.*)/$aa/;$_}$a;
print "变量\变量：",$a,"\n";


$a="world!";
$aa="hello$a";
map {s/(.*)/$aa/;$_}$a;
print "变量=变量：",$a,"\n";


#怎样才能通过类似map {s/(.*)/$aa/;$_}@a;的形式：获得如下结果：

helloworld！hellome！

sunzhiguolu

为什么不直接进行替换, 而是通过一个复合类型中间变量进行替换. 如: $aa="hello$1"; 有啥特殊目的吗?

enditman

回复 2# sunzhiguolu


确实有原因的：
1、hello $1,其实是很多字符串拼接的，包含多个$1，每个元字符串都事先放在数据库里了，根据另外多个条件取出来拼接而成的
2、希望通过@a赋值后，以@a的个数，执行多条上面拼接并赋值的语句。
3、我也尝试了使用foreach，可是，依旧不能赋值，我接触开发时间不长，既不知其然，也不知其所以然，汗！！！！！望指点！

sunzhiguolu

回复 3# enditman

hello $1,其实是很多字符串拼接的，包含多个$1，每个元字符串都事先放在数据库里了，根据另外多个条件取出来拼接而成的

$1 的值不能事先确定下来, 只能通过捕获组动态的确定下来吗?

   

enditman

回复 4# sunzhiguolu


   是的，是用户从前台表单随机选的

希望简洁，看来行不通了，只好用for循环一个一个取出并定义变量，然后再试一下能不能赋值了，感谢你的恢复，虽然没有获得想知道的答案，但令人感到温暖哦

sunzhiguolu

不好意思啊, 我的水平有限, 哪位大神能指点一下 这种问题从何处着手处理. 小白一枚, 不懂帮顶!!!

sunzhiguolu

回复 1# enditman
利用过程代码看下能否完成你的要求, 如果不行, 咱们再一起探讨, 一起学习.

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. foreach (("world!", "me!")){
   
7.     if (/(.*)/){
   
8.         my $regex = "hello$1";
   
9.         (my $str = $_) =~ s/$1/$regex/;
   
10.         print "$str\n";
    
11.     }
    
12. }
    

复制代码

perl a.pl
--------------------------
helloworld!
hellome!


   

sunzhiguolu

如果不能满足你的要求, 拿出几个比较说明问题的示例数据再来.

L_WC

回复 1# enditman


   没看明白什么意思

enditman

回复 8# sunzhiguolu

厉害，高人。

情况稍有些不同，我的那串有$1de 的字符串，来自数据库，还有单引号的影响。
增加一句处理单引号，通过！


    #!/usr/bin/perl
    use strict;
    use warnings;



my @aaa;
@aaa=("world!", "me!");
    foreach (@aaa){
        if (/(.*)/){
            my $regex = 'hello$1';  # 单引号影响
                my $regex = eval "\"$regex\""; # eval一下

            (my $str = $_) =~ s/$1/$regex/;
            print "$str\n";
        }
    }