FoolAck+2008-10-23 20:13:37--

Die splice-Lösung entfernt aber die ersten 10 Elemente des Arrays. Bin mir nicht sicher, ob das gewollt ist.

FoolAck+2008-10-23 20:13:37--

Man könnte zwar statt @array einfach @{ [@array] } nehmen, aber irgendwie sieht das auch nicht so schön aus.

1
2
3
4
5
6
7
8
9
10
11

#! /usr/bin/perl -l
use strict;
use warnings;

my @array = ( 1..3 );
my $max = 5;

for ( @array[0..$max-1] ) {
  last if !defined;
  print;
}