Perl定义要跟随的变量的模式

Question

如果你定义my $top = (0 .. 100)，你会得到每个数字1,2,3,4 ... 100，但是如何定义$ top只能产生0,2.5,5,7.5 ...... 100？感谢

Answer 1

@top = map { 2.5 * $_ } 0 .. 40;

Answer 2

#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

my @numbers = ( 0 .. 40 );
my @top = map { $_ * 5 / 2 } @numbers;

print Dumper \@top;

输出：

$ ./test.pl 
$VAR1 = [
          '0',
          '2.5',
          '5',
          '7.5',
          ...
          '95',
          '97.5',
          '100'
        ];