Discussion :

[parisien91]

Bonsoir,

J'ai un probleme, je voudrais mettre le contenue d'un fichier.txt dans un tableau a 2 dimension.
Mon fichier est:

Code :

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

1
2
3
4
5
 
SWO1    10.42.78.1    user1    mdp1
SWO2    10.42.78.2    user2    mdp2
SWO3    10.42.78.3    user3    mdp3
SWO4    10.42.78.4    user4    mdp4

J'ai donc 16 elements
J'ai commencer par faire ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    while ($Ligne=<BASE>)
    {
        ## Lit la ligne du fichier.txt                                                                        
         print $Ligne;                   
        ## Condition en expression reguliere d'une ligne du fichier txt
         split(/\s+/, $Ligne) = ($nom, $ip, $login, $mdp);
#       if($Ligne =~ /(.*);(.*);(.*);(.*);/)
       { 
           push $switchs_database [0][1] = $1;
           push $switchs_database [0][2] = $2; 
           push $switchs_database [0][3] = $3; 
           push $switchs_database [0][4] = $4;     
...................

et ainsi de suite mais mauvais choix! j'ai regardé dans les doc les tableaux 2 dim mais je n'est pas trop compris parce qu'eux c'est des valeurs qu'ils rentrent a la main moi c'est dans un fichier!


Au final je voudrais avoir tab[0][1] =SW01
tab[0][2] = IP
tab[0][3] = login
tab[0][4] = mdp
tab[1][1] = SW02

parce que apres j'ai besoin de récuperer les arguments de SW01, IP, login,MDP,SWO2...
parceque je dois effectuer une boucle pour me connecter sur l'@ IP du tableau!!

Merci bonne soirée

[djibril]

pourquoi ne pas utiliser les hashs avec en clé SWO1 SWO2, etc vu qu'ils sont unique ?

[iblis]

Tu peux aussi utiliser un tableau anomyme:

Code :

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

1
2
3
4
5
my @data;
while(<>) {
	chomp;
	push @data, [split /\t/];
}

(J'ai supposé que tes données sont séparées par des tabs).

[parisien91]

Salut a vous 2,

je suis dsl djibril, mais je sais pas utiliser le hash!! mais je veux bien tu m'explique!!

Pour iblis, oui c'est 4espaces donc 1tab
le while (<>) le <> signifie quoi?
chomp; enleve le retour a la ligne non?
et ca "[split /\t/]" sa va couper a chaque fois que quoi? le \t signifie quoi??

Mais on ma dis de le faire dans un tableau a 2dimensions parceque j'ai besoin de récuperer les arguments qui en sortent!!

j'espere vous pourrez m'expliquer

[Jasmine80]

je suis dsl djibril, mais je sais pas utiliser le hash!! mais je veux bien tu m'explique!!

Code :

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

1
2
$tableau{clé} = valeur;
$tableau{"SWO1"} = "10.42.78.1    user1    mdp1";

cf FAQ : http://perl.developpez.com/faq/perl/?page=sectionB4

le while (<>) le <> signifie quoi?
chomp; enleve le retour a la ligne non?
et ca "[split /\t/]" sa va couper a chaque fois que quoi? le \t signifie quoi??

pour le <> ... je ne sais pas trop expliquer en bon vocabulaire perlien mais ça signifie que tu prends ligne par ligne de ton fichier (attends que quelqu'un d'autre t'explique mieux)

Code :

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

1
2
3
4
while(<>) {
	chomp;
	push @data, [split /\t/];
}

équivaut à :

Code :

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

1
2
3
4
while($Ligne=<BASE>>) {
	chomp $Ligne;
	push @data, split (/\t/, $Ligne);
}

Pour le chomp, tu as raison

Pour split (/\t/, $Ligne), tu coupes le contenu de $Ligne au niveau des \t, qui sont les tabulations.

Est-ce plus clair?

[Jasmine80]

Je viens de trouver la documentation sur l'opérateur diamant (<>)
http://www.cs.cf.ac.uk/Dave/PERL/node68.html

[Jasmine80]

Le premier à avoir suggéré un hash, fut Djibril

pourquoi ne pas utiliser les hashs avec en clé SWO1 SWO2, etc vu qu'ils sont unique ?

Ce à quoi Parisien à répondu :

Mais, j'en ai parler avec un proche du projet, et ma dit de le faire avec un tableau 2 dimensions pas en hash!! En plus il faut que je comprenne ce que je fais vue que c'est noté!

... faudrait savoir ce que tu veux!

[iblis]

Autres choses.

(1) Si tu en restes au tableau de tableaux, je te suggère d'utiliser la façon de faire que je t'ai indiqué cela t'évitera d'avoir à jongler avec les numéros de ligne lu et d'avoir un premier accès direct et le deuxième en référence (non que je pense avoir raison bien sûr, mais Jasmine c'est évertuée à résoudre tes problèmes au coup pas coup, ce qui est le plus difficile car il faut sans cesse deviner où celui qui a le problème, toi en l'occurrence, veut en venir).

(2) Quand tu passes tes données à une fonction, pourquoi ne pas passer la référence sur ton tableau : backup($switch_database[$ligne]) puisque $switch_database[$ligne] est une référence vers un tableau de valeurs.

[parisien91]

Jasmine, pour te répondre mon tuteur quand je lui ai demander si il voulait que je le fasse avec du hash ou tableau 2 dim, il ma répondu comme tu veux mais tableau 2 dimensions c'est plus facile... oui sachant que je commence dans le perl!

Donc je suis partis sur l'autre solution! sachant que ce que djibril avais dis j'avais chercher et rien trouver de bien pour m'expliquer... je suis surment bete de pas comprendre les explications des sites!
Donc avec toi mem JAsmine nous avons pas mal avancé! et je continue a dire que je finis deja avec cette méthode et apres je verrais si j'ai le tps de modifier mon script je verrais!!
Sachant que je dois TOUS comprendre a se que je fais!!et je dois savoir tous réexpliquer devant des examinateurs!

donc je t'affirme que je continue la méthode que l'on a commencé, Jasmine.
Pour le hash de tableau je verrais a la fin avec les exemples que iblis ma donnée.

mais le passage des arguments ne fonctionnes pas...

[djibril]

Moi je te conseillerais sincèrement plutôt d'utiliser les hashs .
C'est beaucoup plus simple d'utilisation et de compréhension que les tableaux à plusieurs dimensions surtout quand on débute.

De plus, c'est plus facilement maintenable.

On peut t'aider, donc c'est pas un souci.

[danathane]

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
 
 
$VAR1 = {
          'SWO4' => [
                      '10.42.78.4',
                      'user4',
                      'mdp4'
                    ],
          'SWO2' => [
                      '10.42.78.2',
                      'user2',
                      'mdp2'
                    ],
          'SWO1' => [
                      '10.42.78.1',
                      'user1',
                      'mdp1'
                    ],
          'SWO3' => [
                      '10.42.78.3',
                      'user3',
                      'mdp3'
                    ]
        };

est ce que quelqu'un pourrait me dire comment faire pour lire le contenu des tableau de ce hash?

je vois pas trop...