perl - 提取每第n个数字

Question

我想从文件中提取每 3 个数字(42.034、41.630、40.158 等等)看例子-

42.034  13.749  28.463  41.630  12.627  28.412  40.158  12.173  30.831  26.823
12.596  32.191  26.366  13.332  32.938  25.289  12.810  32.419  23.949  13.329

有什么使用 perl 脚本的建议吗？

谢谢，解码器

Answer 1

您可以将文件内容拆分为单独的数字并使用 modulo operator提取每 3 个数字:

my $contents = do { local $/; open my $fh, "file" or die $!; <$fh> };    
my @numbers = split /\s+/, $contents;

for (0..$#numbers) {
    $_ % 3 == 0 and print "$numbers[$_]\n";
}