perl - 计数到标量值

Question

所以我有一个foreach循环：

foreach (1..10) {
    print "#", $t, "\n";
 }

但我也有一个标量：

$number = 5;

我可以像这样从 1 数到标量吗？

 foreach (1..$number) {
    print "#", $t, "\n";
 }

当我这样做时，程序什么也不输出。我能做些什么来完成这项工作？

Answer 1

脚本：

#!/usr/bin/perl

use strict;
use warnings;

my $number = 5;

foreach (1..$number) {
  print "#$_\n";
}

或者

#!/usr/bin/perl

use strict;
use warnings;

my $number = 5;

print "#$_\n" for 1..$number;

输出：

#1
#2
#3
#4
#5