数组整形

newspeed000

一个数组@a，假定其有100个元素，现在我想让它十个合并，形成一个含十个元素的数组
整形的过程不新建新的数组而 一直对@a操作，这个要怎么实现啊~

求教大牛！拜谢

rubyish

@a = map { join '',@a[$_..$_+9] } map { $_ * 10} 0..9;

or

@a = map { [@a[$_..$_+9] ]} map { $_ * 10} 0..9;

Mr-Summer

不太理解需求，好像是C的题目

1. for ($i=0;$i<=100;$i++)
   
2. { $a[$i]=$i;}
   
3. for($n=0;$n<=100;$n+=10)
   
4. {print @a[$n..$n+9],"\n";}

复制代码

yinyuemi

1. perl -MData::Dumper -le '@a=(1..100);print Dumper "@a";@a=split /\s/,(join "", map {$_ = ++$x%10?$_:$_." "} @a);print Dumper \@a'
   

复制代码

newspeed000

请问$x是什么啊，数组元素的下标吗？
我写到脚本里面不识别这个$x呢

yinyuemi

$x是一个临时变量，我给的是命令行，如果写到脚本中，需要声明

wxlfh

不新建一个临时数组的话，在Perl中这似乎是不可能完成的任务。
不知道合并是什么意思？是10个元素形成一个数组呢，还是真的以某种方式合并成一个元素？

羲之遗韵

rubyish 发表于 2011-12-21 13:00
@a = map { join '',@a[$_..$_+9] } map { $_ * 10} 0..9;

or

牛！