Shell Programming and Scripting

Hi

I have stored a command output in an array like below

@a = `xyz`;

actually xyz comnad will give the output like this

tracker
date
xxxxxxx
xxxxxxx
---------------------
1 a
2 b
----------------------

i have stored the "xyz" output to an Array @a.

i need to remove first 5 lines and last line and the output should be

1 a
2 b

i am sticking here


#!/usr/bin/perl -w

use strict;
use warnings;

@a = `xyz`;

foreach $i (@a) {
*************
************
}

in the above loop how can we remove the first 5 lines and last line in array...

could you please guide me...

Here are a few ways
Using a slice:

Code:

 
@a = @a[ 5 .. $#a ];

Using splice:

Code:

 
splice @a, 0, 5;

Using shift:

Code:

 
shift @a for 1..5;

Using grep:

Code:

 
my $cnt = 0;
@a = grep { ++$cnt > 5 } @a;

Using map:

Code:

 
my $cnt = 0;
@a = map { ++$cnt < 5 ? ( ) : $_ } @a;

Thank you very much,

the above codes are removing first 5 lines.

could you please tell me how to remove last line also

i need to remove first five lines and last one line....

---------- Post updated at 12:59 AM ---------- Previous update was at 12:55 AM ----------

Thank you friend, I got it

i have done like this "@a = @a[ 5 .. $#a-1 ];

its working fine

Thank you friend

I guess pop fucntion would remove the last element..