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'
        ];