Mega Code Archive

 

Categories / Perl / Array

 

Array slices 2

@colors=('red','green','yellow','orange'); ($c[0], $c[1],$c[3], $c[5])=@colors;  # The slice print @colors,"\n";  print "@colors,\n";  print $c[0],"\n";     print $c[1],"\n";     print $c[2],"\n";     print $c[3],"\n";     print $c[4],"\n";     print $c[5],"\n";     print "The size of the \@c array is ", $#c + 1,".\n";