鍦≒erl涓紝鍙互浣跨敤寰幆缁撴瀯鏉ユ壒閲忓垱寤烘暟缁勩€備互涓嬫槸涓€浜涘父瑙佺殑鏂规硶锛?/p>

1. 浣跨敤寰幆缁撴瀯鍜宲ush鍑芥暟锛?/li>

my @array;
for (my $i = 1; $i <= 10; $i++) {
push @array, $i;
}

2. 浣跨敤鍒楄〃鑼冨洿鎿嶄綔绗?鈥?锛?/li>

my @array = (1..10);

3. 浣跨敤map鍑芥暟鍜岃寖鍥存搷浣滅锛?/li>

my @array = map { $_ } 1..10;

4. 浣跨敤x鎿嶄綔绗﹀拰鍒楄〃锛?/li>

my @array = (1) x 10;

浠ヤ笂鏂规硶閮藉彲浠ュ垱寤轰竴涓寘鍚?鍒?0鐨勬暟缁勩€傛牴鎹渶瑕侊紝鍙互璋冩暣寰幆鐨勮捣濮嬪€笺€佺粨鏉熷€煎拰閫掑姝ラ暱鏉ュ垱寤轰笉鍚岀殑鏁扮粍銆?/p>