Discussion :

[calimero642]

Bonjour à tous,
j ai une petite question concernant un tableau de données; Lorsque je fais un print d 'un tableau j obtient chaque valeur sur une ligne distinct alors que j ai un tableau cree a partir d un push, lorsque je le print j ai tout sur une meme ligne !!!!
Voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
$Cmd_Snmp_ARP_rt_DIS = "snmpwalk -v1 -On -c $Com_Snmp ";
@Cmd_Snmp_ARP_rt_DIS_resultat  = `$Cmd_Snmp_ARP_rt_DIS $Addr_Ip .1.3.6.1.2.1.4.22`;
#Resultat complet de la commande SNMP avec les OIDs
print"\n#Cmd_Snmp_ARP_rt_DIS#@Cmd_Snmp_ARP_rt_DIS_resultat[0..$#Cmd_Snmp_ARP_rt_DIS_resultat]\n ";

RESULTAT d affichage correct mais avec trop d informations

.1.3.6.1.2.1.4.22.1.4.4.10.4.12.3 = dynamic(3)
.1.3.6.1.2.1.4.22.1.4.4.10.4.12.4 = dynamic(3)
.1.3.6.1.2.1.4.22.1.4.4.10.4.12.5 = dynamic(3)
.1.3.6.1.2.1.4.22.1.4.4.10.4.12.6 = dynamic(3)
.1.3.6.1.2.1.4.22.1.4.4.10.4.12.7 = dynamic(3)

La suite du code qui selectionne les bonnes informations:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
#On va prendre ligne par ligne du tableau @Cmd_Snmp_ARP_rt_DIS_resultat contenant la table ARP
        {
                push (@Tableau_ARP, $1) if(/.*.\.(.*\..*\..*\..*=.*)/);
        }
print"\n##@Tableau_ARP##\n";

Affichage d un tableau dont tous les resultat s affiche on a l impression sur une seule ligne:

##10.4.12.3 = 4 10.4.12.4 = 4 10.4.12.5 = 4 10.45.162.6 = 4 10.4.12.7 = 4 ##

Ce que je voudrais voir afficher

##10.4.12.3 = 4
10.4.12.4 = 4 10.4.12.5 = 4
10.45.162.6 = 4
10.4.12.7 = 4 ##

MErci d avance pour votre aide
Jules

[BnA]

Je me trompe peut-être parce que je suis un débutant, mais en mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
#On va prendre ligne par ligne du tableau @Cmd_Snmp_ARP_rt_DIS_resultat contenant la table ARP
        {
                push (@Tableau_ARP, $1) if(/.*.\.(.*\..*\..*\..*=.*)/);
        }
print"\n##@Tableau_ARP##\n\r";

Je crois que ça devrait marcher...

[Mr6]

Si c'est juste une question d'affichage, pourquoi ne ferais-tu pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
print "$1\n" if....

sinon, fais une boucle sur ton tableau, pour afficher chaque "élément\n"...

sinon tu peux aussi mettre ton tableau dans un scalaire où tu remplaces les espaces par des retours chariot, genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
my $tab = "@tab";
$tab =~ s/\s/\n/g;
print "##$tab##";

[lami20j]

Salut,

encore plus simple ça sera d'utiliser la variable $" ($LIST_SEPARATOR avec use English; )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
{
  local $"="\n"; # l'espace par défaut sera remplacé par \n
  print "@tab\n";
}

lami20j