Bonjour,

je souhaiterai supprimer une ligne de mon tableau mais voila mon code fonctionne pas terrible.
Si vous pouviez m'aider à déterminer mon erreur.

voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!/usr/bin/perl -w 
 
use strict; 
use CGI; 
use Net::Telnet::Cisco; 
 
#my $q = new CGI;
 
#my $IP = $q->param('ipSwitch');
 
my $session = Net::Telnet::Cisco->new(Host => '10.131.0.3',
					Prompt => '/[A-Za-z\-+_0-9]+#/');
$session->login('truc', 'xxxx');
 
# Execute la commande
my @IP = $session->cmd('show arp');
 
 
$session->close;
 
#print "@IP \n";
 
open (listeIp_Mac ,">../listeIP_Mac.txt") ;
 
foreach my $ligne (@IP) {
  chomp $ligne;
  next if (!$ligne);
  my $i = "Protocol  Address          Age (min)  Hardware Addr   Type   Interface";
  if ($ligne == $i) {
    next if $i;
  }
  my @liste = split (/\s+/, $ligne); 
  print "$liste[3] $liste[1]\n";
  # Rassemblement des champs intéressant
  print listeIp_Mac "$liste[3] $liste[1]\n";
}
close (listeIp_Mac);
Merci pour votre aide.