1 pièce(s) jointe(s)
Problème de hash dans une fonction
Bonjours à tous , voici mon code :
Code:
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
|
use warnings;
use strict;
use Term::ReadKey
my %connect = (
"host" => "",
"login" => "",
"password" => "",
);
print "## IDENTIFICATION ## \n";
print " Host (IP) :\t";
$connect{host}=<>;
chomp $connect{host};
print "Login :\t";
$connect{login}=<>;
chomp $connect{login};
print "Password : ";
ReadMode('noecho');
$connect{password}=<>;
chomp $connect{password};
ReadMode(0);
print "ip = $connect{host}";
print "login = $connect{login}";
print "password = $connect{password}";
test(\%connect);
sub test {
my %auth = @_;
my $host = $auth{host};
my $mdp = $auth{password};
my $ndc = $auth{login};
print "host = $host\n";
print "mdp = $mdp\n";
print "ndc = $ndc\n";
} |
mais le problème c'est que j'ai toujours un message d'erreur , et le dernier en date est :
Pièce jointe 180802.
Le truc c'est que j'ai fait un script initial qui se connecte à un 4507 , qui récupère les vlans et qui leur ajoute un code client dans le nom et renvoie la config.
J'ai donc fait 3 fonction : une pour récupérer la conf , une pour le traitement et une pour le renvoi.
Je voulais faire un hash pour ne pas avoir à me connecter deux fois dans la première et dernière fonction et le passé en argument mais je n'y arrives pas :/
J'ai pourtant suivit les cours ichttp://lhullier.developpez.com/tutoriels/perl/intro/ et j'ai essayer de regarder http://perl.developpez.com/faq/perl/...depuis-Windows mais que j'essaye de manière différente me donne aussi des erreurs que je comprend pas ...
