Search Results

Here are a few ways
Using a slice:

@a = @a[ 5 .. $#a ];
Using splice:

splice @a, 0, 5;
Using shift:

shift @a for 1..5;
Using grep:

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

$
$ cat f81
a 1 3;4
b 2 4;7
c 4 5;6
d 4 5;8
$
$
$ perl -F';' -lane 'print $F[0]' f81
a 1 3
b 2 4
c 4 5
d 4 5
$
$
$ perl -lne '/^(.*);/ and print $1' f81
a 1 3
b 2 4
c 4 5
d 4 5

The

ping -c 1 $ip > /dev/null 2> /dev/null
if [ $? -eq 0 ]; then

can be simplified

if ping -c 1 $ip > /dev/null
then

A more professional solution is
fping < file.txt
Google...

You're very welcome.

No, I can't write the script in perl. Sorry about that. For someone who knows perl, it should not be a big deal to translate the logic into perl.

find <path> -print | xargs grep -c word