Array Perl

  1. Home
  2. Perl
  3. Array
  4. Remove elements from position 7 onward
#!/usr/bin/perl -w
@array = (1,2,3,4,5,6,7,8,9);
print "@array\n";
$offset = 7;
splice(@array, $offset);