about splice

hb12112

#!/usr/bin/perl -w
use strict;
my @veg=qw(carrots corn);
splice (@veg,0,1);
print @veg,"\n";
splice (@veg,0,0,qw(peas));
print join(' ',@veg),"\n";
splice (@veg,-1,1,qw(barley,turnip));
print join(' ',@veg),"\n";
splice (@veg,1,1);
print join(' ',@veg),"\n";
输出结果为：
corn
peas corn
peas barley,turnip
peas
为什么最后个值是peas，而不是peas,turnip?

Qiang

splice ARRAY,OFFSET,LENGTH,LIST
Removes the elements designated by OFFSET and LENGTH from an
array, and replaces them with the elements of LIST, if any.

splice (@veg,1,1);  # remove $veg[1] ，替换为 LIST. 这里 LIST 没有设定，所以 splice 这里做的只是 remove $veg[1]

hb12112

按你的意思，结果应该是peas,turnip .
但实际上输出为peas.
example:
#!/usr/bin/perl -w
use strict;
my @ww=qw(peas barley turnip);
splice (@ww,1,1);
print join(' ',@ww);
输出结果为：
peas turnip
在这个例子中，结果输出正确。

#!/usr/bin/perl -w
use strict;
my @veg=qw(carrots corn);
splice (@veg,0,1);
print @veg,"\n";
splice (@veg,0,0,qw(peas));
print join(' ',@veg),"\n";
splice (@veg,-1,1,qw(barley,turnip));
print join(' ',@veg),"\n";
splice (@veg,1,1);
print join(' ',@veg),"\n";


为什么上面那个例子最后那条语句的输出会是peas呢？郁闷中！在执行splice(@veg,1,1);操作之前，@veg的值已被修改为
peas, barley,turnip 了。

[ 本帖最后由 hb12112 于 2006-3-26 01:08 编辑 ]

Qiang

仔细读一下我写的

splice ARRAY,OFFSET,LENGTH,LIST
splice (@veg,1,1);  # remove $veg[1] ，替换为 LIST. 这里 LIST 没有设定，所以 splice 这里做的只是 remove $veg[1]

@veg 是 qw(peas barley,turnip), 只有两个元素， splice 这里把 $veg[1] 删掉了。@veg 变成 qw(peas)

hb12112

谢谢。明白了。
理解qw有问题了，他是以空格做为域分割的。
一直认为返回的是三个值，其实是两个值。