Удаление элемнтов массива в Perl

[Podedinov]

Есть вот такой скрипт:

Код: Выделить всё

#!/usr/bin/perl -w

use Net::Telnet;

$tuser = "admin";
$tpass = "admin";
$thost = "10.90.90.90";

$telnet = new Net::Telnet(Timeout => 5, Prompt => '/#/');
$telnet->open(Host => $thost);
$telnet->login($tuser, $tpass);

@lines = $telnet->cmd("show arp");
print @lines;

$telnet->close();

Он выводит на экран вот это:

Код: Выделить всё

Command: show arpentry

ARP Aging Time : 20

Interface      IP Address       MAC Address        Type
-------------  ---------------  -----------------  ---------------
System         10.0.0.0         FF-FF-FF-FF-FF-FF  Local/Broadcast
System         10.90.90.10      00-E0-52-A8-B3-AD  Dynamic
System         10.90.90.90      1C-AF-F7-0E-75-61  Local
System         10.255.255.255   FF-FF-FF-FF-FF-FF  Local/Broadcast

Total Entries  : 4

DES-1228/ME:4

Хотелось бы что бы он выводил только это:

Код: Выделить всё

System         10.0.0.0         FF-FF-FF-FF-FF-FF  Local/Broadcast
System         10.90.90.10      00-40-52-58-23-AD  Dynamic
System         10.90.90.90      0C-3F-F1-01-35-71  Local
System         10.255.255.255   FF-FF-FF-FF-FF-FF  Local/Broadcast

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[ProFTP]

если @lines - это действительно массив, то так:

Код: Выделить всё

@lines = $telnet->cmd("show arp");
#print @lines;
print @lines[4.. $#lines-4];

[Podedinov]

Спасибо все получилось.