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 :
Merci pour votre aide.
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);
Partager