如何将a数组的内容用正则更改后保存到b数组中，但a数据内容不变

zarcao

如何将a数组的内容用正则更改后保存到b数组中，但a数据内容不变，以下是我的代码：
@a = qw (/usr/man/man3/foo.1 /usr/man/man2/foo.1 /usr/man/man1/foo.1);


foreach $i (@a) {
        $i =~ s,man(?=\d),cat,;
        push @b,$i;
}


print join ("\n",@a);

但发现a数组的内容却被更改了，请问如何不在改变数组a的情况下进行操作

jason680

如何将a数组的内容用正则更改后保存到b数组中，但a数据内容不变，以下是我的代码：
@a = qw (/usr/man/man ...
zarcao 发表于 2011-09-13 09:37

@b = @a;

foreach (@b) ...

zhlong8

字符串可变，所以需要先复制下。 5.14 中 s/// 加了个 /r 就是做这个的

py

如何将a数组的内容用正则更改后保存到b数组中，但a数据内容不变，以下是我的代码：
@a = qw (/usr/man/man ...
zarcao 发表于 2011-09-13 09:37

1. foreach (@a) {
   
2.         $i = $_;
   
3.         $i =~ s,man(?=\d),cat,;
   
4.         push @b,$i;
   
5. }

复制代码