Perl文本文件到垂直数组

Question

我在http://ip-address/my.txt有一个档案。这是文本文件的内容

1. 1.5 5.8 9.8 4.5
2. 8.7 4.5 9.6
3. 5.6 8.7 9.8 7.4

如何在perl中创建它们的数组。所以我可以通过索引调用每个元素。 喜欢打印“@array [5]”应该是8.7

Answer 1

目前还不清楚垂直的含义。我最好的猜测是你只需要将所有数据放在一个数组中。这是你的意思吗？

use strict;
use warnings;

my @data;

push @data, split while <DATA>;

print $data[4]; # show the fifth element

__DATA__
1.5 5.8 9.8 4.5
8.7 4.5 9.6
5.6 8.7 9.8 7.4

<强>输出

8.7

---

要从程序外部的数据文件中读取，请改为编写

open my $fh, '<', 'my.txt' or die "Failed to open file: $!";
push @data, split while <$fh>;