论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2013-09-27 16:13 |只看该作者 |倒序浏览

本帖最后由 fjndhjf 于 2013-09-27 17:04 编辑

想把多行文本合并成一行，然后赋值，这样写为什么不行？

#!/usr/bin/perl
@PowerD = <DATA>;
chomp(@PowerD);
@powerde = split(/\s+/,@PowerD[0]);
print "@powerde\n";

__DATA__
0.00000E+00 0.00000E+00 6.69445E+02 8.53129E+01 8.59203E+02
9.73709E+01 4.11982E+01 5.44518E+00 1.38911E+01 1.80307E+00

最后要得到结果：
@powerde[0]=0.00000E+00
@powerde[1]=0.00000E+00
@powerde[2]=6.69445E+02
@powerde[3]=8.53129E+01
@powerde[4]=8.59203E+02
@powerde[5]=9.73709E+01
.........

求解答，多谢

文库|博客

Cu_fans

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2013-09-27 16:20 |只看该作者

没看明白你想干啥，想合并成一行,直接

@PowerD = <DATA>;
chomp(@PowerD);
print "@PowerD\n";

复制代码

这样就行了吧

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

fjndhjf

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2013-09-27 17:05 |只看该作者

回复 2# Cu_fans

没法一一个个赋值给数组呢

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

Cu_fans

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2013-09-27 17:25 |只看该作者

push @powerde, split(/\s+/,$PowerD[$_]) for (0 .. $#PowerD);

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

onepublic

白手起家

论坛徽章:: 0

5楼 [报告]

发表于 2013-09-27 17:45 |只看该作者

#use map
my @PowerD = map {s/^\s+//;split /\s+/} <DATA> ;
print "@PowerD";

__DATA__
0.00000E+00 0.00000E+00 6.69445E+02 8.53129E+01 8.59203E+02
9.73709E+01 4.11982E+01 5.44518E+00 1.38911E+01 1.80307E+00