在Perl中展平数组的一部分?

Pansywhacker

基本上,当我使用Data :: Dumper时,我得到了

$VAR1 = [
          '63',
          'Joe',
          'Bloggs',
          '8-Mon',
          'FAU70',
          8
        ];
$VAR2 = 'Bye';

但是我想要得到的是

$VAR1 = 'Joe Bloggs 8-Mon';
$VAR2 = 'Bye';

关于如何处理数组以仅包含一个值(以前是该值中的多个值)的任何想法?

谢谢!

阿努拉格

假设您将数组放在变量@array中,例如

my @array=(['63','Joe','Bloggs','8-Mon','FAU70',8],'Bye');

此数组结构上的转储程序的工作方式如下:

$VAR1 = [
          '63',
          'Joe',
          'Bloggs',
          '8-Mon',
          'FAU70',
          8
        ];
$VAR2 = 'Bye';

用它来得到你想要的:

map{$_=join(" ",@$_[1..4]) if(ref $_ eq 'ARRAY');} @array;

现在,自卸车将打印如下:

$VAR1 = 'Joe Bloggs 8-Mon FAU70';
$VAR2 = 'Bye';

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章