Perl序号数组
Perl提供了用于顺序数字和字母的快捷方式。例如,当计数到100时,不必键入每个元素,而是可以执行以下操作:
示例
#!/usr/bin/perl @var_10 = (1..10); @var_20 = (10..20); @var_abc = (a..z); print "@var_10\n"; # Prints number from 1 to 10 print "@var_20\n"; # Prints number from 10 to 20 print "@var_abc\n"; # Prints number from a to z
这里的双点(..)称为范围运算符。这将产生以下结果-
1 2 3 4 5 6 7 8 9 10 10 11 12 13 14 15 16 17 18 19 20 a b c d e f g h i j k l m n o p q r s t u v w x y z